From: Ian Lynagh <igloo@earth.li>
Date: Thu, 24 Jan 2008 15:01:37 +0000 (+0000)
Subject: A touch more strictness in the parser
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=bf61a20559071d042ebeabb3c65383d1c90dd35c

A touch more strictness in the parser
---

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 8d9f9ef..167c8b6 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) }