From: Ian Lynagh <igloo@earth.li>
Date: Thu, 24 Jan 2008 14:53:11 +0000 (+0000)
Subject: Add a bit of strictness to the parser
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e9d950597e5800411fbcfb9fac8a5258fa8e11ce;p=ghc-hetmet.git

Add a bit of strictness to the parser
---

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 57832c3..8d9f9ef 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1222,7 +1222,7 @@ decl 	:: { Located (OrdList (LHsDecl RdrName)) }
 							PatBind (LL $ BangPat pat) (unLoc $3)
 								placeHolderType placeHolderNames)) } }
 	| infixexp opt_sig rhs		{% do { r <- checkValDef $1 $2 $3;
-						return (LL $ unitOL (LL $ ValD r)) } }
+						return (LL $! (unitOL $! (LL $ ValD r))) } }
         | docdecl                       { LL $ unitOL $1 }
 
 rhs	:: { Located (GRHSs RdrName) }