Commit bf61a205 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

A touch more strictness in the parser

parent e9d95059
...@@ -1222,7 +1222,7 @@ decl :: { Located (OrdList (LHsDecl RdrName)) } ...@@ -1222,7 +1222,7 @@ decl :: { Located (OrdList (LHsDecl RdrName)) }
PatBind (LL $ BangPat pat) (unLoc $3) PatBind (LL $ BangPat pat) (unLoc $3)
placeHolderType placeHolderNames)) } } placeHolderType placeHolderNames)) } }
| infixexp opt_sig rhs {% do { r <- checkValDef $1 $2 $3; | 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 } | docdecl { LL $ unitOL $1 }
rhs :: { Located (GRHSs RdrName) } rhs :: { Located (GRHSs RdrName) }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment