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 (file)
--- 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) }