[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 (file)
--- 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}