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

Make the parser a bit stricter

parent 9cb332c0
......@@ -1441,7 +1441,7 @@ list :: { LHsExpr RdrName }
| texp '|' flattenedpquals { sL (comb2 $1 $>) $ mkHsDo ListComp (unLoc $3) $1 }
lexps :: { Located [LHsExpr RdrName] }
: lexps ',' texp { LL ($3 : unLoc $1) }
: lexps ',' texp { LL (((:) $! $3) $! unLoc $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