projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e9d9505
)
A touch more strictness in the parser
author
Ian Lynagh
<igloo@earth.li>
Thu, 24 Jan 2008 15:01:37 +0000
(15:01 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Thu, 24 Jan 2008 15:01:37 +0000
(15:01 +0000)
compiler/parser/Parser.y.pp
patch
|
blob
|
history
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;
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) }
| docdecl { LL $ unitOL $1 }
rhs :: { Located (GRHSs RdrName) }