From df3b97f167c0a7186e6797a11961a4e81fbd1bb6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Aug 1997 21:53:50 +0000
Subject: [PATCH 1/1] [project @ 1997-08-25 21:53:50 by sof] Updated to
 reflect RecordCon change

---
 ghc/compiler/reader/ReadPrefix.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ->
-- 
1.7.10.4