From: sof <unknown>
Date: Mon, 25 Aug 1997 21:53:50 +0000 (+0000)
Subject: [project @ 1997-08-25 21:53:50 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~117
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=df3b97f167c0a7186e6797a11961a4e81fbd1bb6;p=ghc-hetmet.git

[project @ 1997-08-25 21:53:50 by sof]
Updated to reflect RecordCon change
---

diff --git a/ghc/compiler/reader/ReadPrefix.lhs b/ghc/compiler/reader/ReadPrefix.lhs
index aeab16a..4b185e1 100644
--- a/ghc/compiler/reader/ReadPrefix.lhs
+++ b/ghc/compiler/reader/ReadPrefix.lhs
@@ -316,7 +316,7 @@ wlkExpr expr
       U_record con rbinds -> -- record construction
 	wlkDataId  con		`thenUgn` \ rcon     ->
 	wlkList rdRbind rbinds	`thenUgn` \ recbinds ->
-	returnUgn (RecordCon (HsVar rcon) recbinds)
+	returnUgn (RecordCon rcon recbinds)
 
       U_rupdate updexp updbinds -> -- record update
 	wlkExpr updexp		 `thenUgn` \ aexp ->