diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-06 10:35:42 +0100 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-06 10:37:03 +0100 |
| commit | d21262e73caa1dcade72790f6639c9e56ffd8211 (patch) | |
| tree | 14ed3ccb76f06b00961227debbbaae5b8c7b3244 | |
| parent | 91a56e9de1e4e0487af7b3610531b81a74205959 (diff) | |
| download | haskell-wip/pretty32.tar.gz | |
Experimental fix for pretty:32wip/pretty32
https://github.com/haskell/pretty/issues/32
| -rw-r--r-- | compiler/utils/Pretty.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/utils/Pretty.hs b/compiler/utils/Pretty.hs index 74d69f23d0..ff70ddf99e 100644 --- a/compiler/utils/Pretty.hs +++ b/compiler/utils/Pretty.hs @@ -718,13 +718,13 @@ beside :: Doc -> Bool -> RDoc -> RDoc beside NoDoc _ _ = NoDoc beside (p1 `Union` p2) g q = beside p1 g q `union_` beside p2 g q beside Empty _ q = q -beside (Nest k p) g q = nest_ k $! beside p g q +beside (Nest k p) g q = nest_ k $ beside p g q beside p@(Beside p1 g1 q1) g2 q2 - | g1 == g2 = beside p1 g1 $! beside q1 g2 q2 + | g1 == g2 = beside p1 g1 $ beside q1 g2 q2 | otherwise = beside (reduceDoc p) g2 q2 beside p@(Above{}) g q = let !d = reduceDoc p in beside d g q -beside (NilAbove p) g q = nilAbove_ $! beside p g q -beside (TextBeside s sl p) g q = textBeside_ s sl $! rest +beside (NilAbove p) g q = nilAbove_ $ beside p g q +beside (TextBeside s sl p) g q = textBeside_ s sl $ rest where rest = case p of Empty -> nilBeside g q |