diff options
Diffstat (limited to 'compiler/utils/Pretty.hs')
| -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 |