Commit 354011fa authored by simonmar's avatar simonmar

[project @ 2004-01-23 13:42:40 by simonmar]

Small simplification
parent 4e6498f2
......@@ -482,7 +482,7 @@ tycl_hdr :: { Located (LHsContext RdrName, Located RdrName, [LHsTyVarBndr RdrNam
decls :: { Located (OrdList (LHsDecl RdrName)) } -- Reversed
: decls ';' decl { LL (unLoc $1 `appOL` unLoc $3) }
| decls ';' { LL (unLoc $1) }
| decl { L1 (unLoc $1) }
| decl { $1 }
| {- empty -} { noLoc nilOL }
......
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