From 354011fa6b76e00d3954f9bdbc0e20181c78e45f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 23 Jan 2004 13:42:40 +0000
Subject: [PATCH] [project @ 2004-01-23 13:42:40 by simonmar] Small
 simplification

---
 ghc/compiler/parser/Parser.y.pp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/parser/Parser.y.pp b/ghc/compiler/parser/Parser.y.pp
index 02a723a..8276bb5 100644
--- 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 }
 
 
-- 
1.7.10.4