Commit 5a98231d authored by Ian Lynagh's avatar Ian Lynagh

A couple more parser tweaks

parent 403e810b
......@@ -920,6 +920,7 @@ splitQualName orig_buf len = split orig_buf orig_buf
qual_size = orig_buf `byteDiff` dot_buf
varid span buf len =
fs `seq`
case lookupUFM reservedWordsFM fs of
Just (keyword,0) -> do
maybe_layout keyword
......
......@@ -824,7 +824,7 @@ where_inst :: { Located (OrdList (LHsDecl RdrName)) } -- Reversed
decls :: { Located (OrdList (LHsDecl RdrName)) }
: decls ';' decl { let { this = unLoc $3;
rest = unLoc $1;
these = unLoc $1 `appOL` unLoc $3 }
these = rest `appOL` this }
in rest `seq` this `seq` these `seq`
LL these }
| decls ';' { LL (unLoc $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