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

Small simplification

[project @ 2004-01-23 13:42:40 by simonmar]
Small simplification
354011fa · simonmar · 4e6498f2 · 354011fa
Commit 354011fa authored Jan 23, 2004 by simonmar
--- a/ghc/compiler/parser/Parser.y.pp
+++ b/ghc/compiler/parser/Parser.y.pp
@@ -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 }