From 19bee3b880fe9b731f9fbcffb03341a0467e6e9f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 21:50:13 +0000
Subject: [PATCH] [project @ 1997-05-18 21:50:13 by sof] Made 2.0x bootable

---
 ghc/compiler/types/TyCon.lhs |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 0460e6e..d6fad86 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -40,7 +40,7 @@ module TyCon(
 
 CHK_Ubiq()	-- debugging consistency check
 
-IMPORT_DELOOPER(TyLoop)	( SYN_IE(Type), GenType,
+IMPORT_DELOOPER(TyLoop) ( SYN_IE(Type), GenType,
 			  SYN_IE(Class), GenClass,
 			  SYN_IE(Id), GenId,
 			  splitSigmaTy, splitFunTy,
@@ -53,9 +53,10 @@ import Usage		( GenUsage, SYN_IE(Usage) )
 import Kind		( Kind, mkBoxedTypeKind, mkArrowKind, resultKind, argKind )
 
 import Maybes
-import Name		( Name, nameUnique, mkWiredInTyConName )
+import Name		( Name, nameUnique, mkWiredInTyConName, NamedThing(getName) )
 import Unique		( Unique, funTyConKey )
-import Pretty		( SYN_IE(Pretty), PrettyRep )
+import UniqFM           ( Uniquable(..) )
+import Pretty		( Doc )
 import PrimRep		( PrimRep(..) )
 import PrelMods		( gHC__, pREL_TUP, pREL_BASE )
 import Lex		( mkTupNameStr )
@@ -78,7 +79,7 @@ data TyCon
 		Kind
 		[TyVar]
 		[(Class,Type)]	-- Its context
-		[Id]		-- Its data constructors, with fully polymorphic types
+		[Id{-DataCon-}]	-- Its data constructors, with fully polymorphic types
 				-- 	This list can be empty, when we import a data type abstractly,
 				-- 	either (a) the interface is hand-written and doesn't give
 				--		   the constructors, or
-- 
1.7.10.4