From d21262e73caa1dcade72790f6639c9e56ffd8211 Mon Sep 17 00:00:00 2001 From: Thomas Miedema Date: Sat, 6 Feb 2016 10:35:42 +0100 Subject: Experimental fix for pretty:32 https://github.com/haskell/pretty/issues/32 --- compiler/utils/Pretty.hs | 8 ++++---- 1 file 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 -- cgit v1.2.1