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

[project @ 1997-08-25 22:27:30 by sof]
Updated to reflect RecordCon change
---

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index ad7d404..f7a25f6 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -349,10 +349,10 @@ rnExpr (ExplicitTuple exps)
     rnExprs exps	 				`thenRn` \ (exps', fvExps) ->
     returnRn (ExplicitTuple exps', fvExps)
 
-rnExpr (RecordCon (HsVar con) rbinds)
+rnExpr (RecordCon con rbinds)
   = lookupOccRn con 			`thenRn` \ conname ->
     rnRbinds "construction" rbinds	`thenRn` \ (rbinds', fvRbinds) ->
-    returnRn (RecordCon (HsVar conname) rbinds', fvRbinds)
+    returnRn (RecordCon conname rbinds', fvRbinds)
 
 rnExpr (RecordUpd expr rbinds)
   = rnExpr expr			`thenRn` \ (expr', fvExpr) ->