From 4889699bc20e68f2c0011557f2b50a7e509ae3f9 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 19:58:44 +0000
Subject: [PATCH] [project @ 1997-05-18 19:58:44 by sof] Updated mkDataCon

---
 ghc/compiler/types/TyLoop.lhi |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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