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

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

diff --git a/ghc/compiler/typecheck/TcHsSyn.lhs b/ghc/compiler/typecheck/TcHsSyn.lhs
index 81be93e..fbe5fbe 100644
--- a/ghc/compiler/typecheck/TcHsSyn.lhs
+++ b/ghc/compiler/typecheck/TcHsSyn.lhs
@@ -415,10 +415,11 @@ zonkExpr te (ExplicitTuple exprs)
   = mapNF_Tc (zonkExpr te) exprs  `thenNF_Tc` \ new_exprs ->
     returnNF_Tc (ExplicitTuple new_exprs)
 
-zonkExpr te (RecordCon con rbinds)
-  = zonkExpr te con		`thenNF_Tc` \ new_con ->
+zonkExpr te (RecordConOut con_id con_expr rbinds)
+  = zonkIdOcc con_id		`thenNF_Tc` \ new_con_id ->
+    zonkExpr te con_expr		`thenNF_Tc` \ new_con_expr ->
     zonkRbinds te rbinds	`thenNF_Tc` \ new_rbinds ->
-    returnNF_Tc (RecordCon new_con new_rbinds)
+    returnNF_Tc (RecordConOut new_con_id new_con_expr new_rbinds)
 
 zonkExpr te (RecordUpd _ _) = panic "zonkExpr te:RecordUpd"