[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