[commit: packages/pretty] master: #32, remove a harmful $! (bbe9270)

git at git.haskell.org git at git.haskell.org
Thu Feb 2 19:15:21 UTC 2017


Repository : ssh://git@git.haskell.org/pretty

On branch  : master
Link       : http://git.haskell.org/packages/pretty.git/commitdiff/bbe9270c5f849a5bb74c9166a5f4202cfb0dba22

>---------------------------------------------------------------

commit bbe9270c5f849a5bb74c9166a5f4202cfb0dba22
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Thu Jun 2 13:15:01 2016 +0100

    #32, remove a harmful $!


>---------------------------------------------------------------

bbe9270c5f849a5bb74c9166a5f4202cfb0dba22
 src/Text/PrettyPrint/Annotated/HughesPJ.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Text/PrettyPrint/Annotated/HughesPJ.hs b/src/Text/PrettyPrint/Annotated/HughesPJ.hs
index 77a59c2..33623ff 100644
--- a/src/Text/PrettyPrint/Annotated/HughesPJ.hs
+++ b/src/Text/PrettyPrint/Annotated/HughesPJ.hs
@@ -695,7 +695,7 @@ beside p@(Beside p1 g1 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 t p)    g q   = TextBeside t $! rest
+beside (TextBeside t p)    g q   = TextBeside t rest
                                where
                                   rest = case p of
                                            Empty -> nilBeside g q



More information about the ghc-commits mailing list