From 47187edb76ddbf354b4b24429ea16c0c207a51ac Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 10 Apr 2002 13:23:55 +0000
Subject: [haddock @ 2002-04-10 13:23:55 by simonmar] Not sure why I made the
 constructor name for a record declaration into a TyCls name, but change it
 back into a Var name anyhow.

---
 src/HsParser.ly | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/HsParser.ly b/src/HsParser.ly
index 3ccd4b6f..749b466a 100644
--- a/src/HsParser.ly
+++ b/src/HsParser.ly
@@ -1,5 +1,5 @@
 q-----------------------------------------------------------------------------
-$Id: HsParser.ly,v 1.1 2002/04/04 16:23:43 simonmar Exp $
+$Id: HsParser.ly,v 1.2 2002/04/10 13:23:55 simonmar Exp $
 
 (c) Simon Marlow, Sven Panne 1997-2000
 
@@ -443,7 +443,7 @@ Datatype declarations
 >	| srcloc sbtype conop sbtype maybe_doc
 >		{ HsConDecl $1 $3 [$2,$4] $5 }
 >	| srcloc con '{' fielddecls '}' maybe_doc
->		{ HsRecDecl $1 (toTyClsHsName $2) $4 $6 }
+>		{ HsRecDecl $1 $2 $4 $6 }
 
 > maybe_doc :: { Maybe String }
 > 	: DOCPREV			{ Just $1 }
-- 
cgit v1.2.3