Skip to content

GitLab

Commit 24fa3d0d authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Make the parser a bit stricter

parent 9cb332c0
Hide whitespace changes
Inline Side-by-side
compiler/parser/Parser.y.pp
View file @ 24fa3d0d
...@@ -1441,7 +1441,7 @@ list :: { LHsExpr RdrName } ...@@ -1441,7 +1441,7 @@ list :: { LHsExpr RdrName }
| texp '|' flattenedpquals { sL (comb2 $1 $>) $ mkHsDo ListComp (unLoc $3) $1 } | texp '|' flattenedpquals { sL (comb2 $1 $>) $ mkHsDo ListComp (unLoc $3) $1 }
lexps :: { Located [LHsExpr RdrName] } lexps :: { Located [LHsExpr RdrName] }
: lexps ',' texp { LL ($3 : unLoc $1) } : lexps ',' texp { LL (((:) $! $3) $! unLoc $1) }
| texp ',' texp { LL [$3,$1] } | texp ',' texp { LL [$3,$1] }
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
......
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