From a3a372f9d89b84c3299a35845afd4e878c704495 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Aug 1997 22:30:39 +0000
Subject: [PATCH] [project @ 1997-08-25 22:30:39 by sof] Updated to reflect
 RecordCon change

---
 ghc/compiler/typecheck/TcHsSyn.lhs |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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