From: sof <unknown>
Date: Sun, 18 May 1997 19:58:44 +0000 (+0000)
Subject: [project @ 1997-05-18 19:58:44 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~639
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4889699bc20e68f2c0011557f2b50a7e509ae3f9;p=ghc-hetmet.git

[project @ 1997-05-18 19:58:44 by sof]
Updated mkDataCon
---

diff --git a/ghc/compiler/types/TyLoop.lhi b/ghc/compiler/types/TyLoop.lhi
index 267140f..c03a087 100644
--- a/ghc/compiler/types/TyLoop.lhi
+++ b/ghc/compiler/types/TyLoop.lhi
@@ -49,7 +49,7 @@ voidTy :: Type
 -- Needed in TysWiredIn
 data StrictnessMark = MarkedStrict | NotMarkedStrict
 mkDataCon :: Name -> [StrictnessMark] -> [FieldLabel]
-	  -> [TyVar] -> [(Class,Type)] -> [Type] -> TyCon
+	  -> [TyVar] -> [(Class,Type)] -> [TyVar] -> [(Class,Type)] -> [Type] -> TyCon
 	  -> Id
 mkTupleCon ::  Int -> Name -> Type -> Id
 \end{code}