X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcTyClsDecls.lhs;h=49425a4706f0fb17cf55605fdb9349858a8c4c52;hp=3217a955d52450fe2a6bedfad6da60f64aa9b3e6;hb=2eb04ca0f8d0ec72b417cddc60672c696b4a3daa;hpb=74b27e20425336403d80e942ee3faf00f8c36ef8

diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs
index 3217a95..49425a4 100644
--- a/compiler/typecheck/TcTyClsDecls.lhs
+++ b/compiler/typecheck/TcTyClsDecls.lhs
@@ -568,7 +568,8 @@ kcDataDecl decl@(TyData {tcdND = new_or_data, tcdCtxt = ctxt, tcdCons = cons})
     kc_con_details (RecCon fields) 
 	= do { fields' <- mappM kc_field fields; return (RecCon fields') }
 
-    kc_field (HsRecField fld bty d) = do { bty' <- kc_larg_ty bty ; return (HsRecField fld bty' d) }
+    kc_field (ConDeclField fld bty d) = do { bty' <- kc_larg_ty bty
+					   ; return (ConDeclField fld bty' d) }
 
     kc_larg_ty bty = case new_or_data of
 			DataType -> kcHsSigType bty
@@ -776,8 +777,8 @@ tcConDecl unbox_strict tycon tc_tvs	-- Data types
 	InfixCon bty1 bty2 -> tc_datacon True  [] [bty1,bty2]
 	RecCon fields      -> tc_datacon False field_names btys
 			   where
-			      (field_names, btys) = unzip [ (n, t) | HsRecField n t _ <- fields ] 
-                              
+			      field_names = map cd_fld_name fields
+			      btys        = map cd_fld_type fields
     }
 
 tcResultType :: TyCon