X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fprelude%2FTysPrim.lhs;h=092a9f48daace44ce552195787b06b2169403dee;hb=7d61cb61daa5e433a0cb85b34b7f0c58b2f961ff;hp=c16c6b87b5f68195318e8ba82d8df3ec68bff42f;hpb=b8875f2f7f596482228645b9751f8f9c592a84c5;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs
index c16c6b8..092a9f4 100644
--- a/ghc/compiler/prelude/TysPrim.lhs
+++ b/ghc/compiler/prelude/TysPrim.lhs
@@ -17,8 +17,7 @@ import Kind		( mkUnboxedTypeKind, mkBoxedTypeKind )
 import NameTypes	( mkPreludeCoreName, FullName )
 import PrelMods		( pRELUDE_BUILTIN )
 import PrimRep		( PrimRep(..) )	-- getPrimRepInfo uses PrimRep repn
-import TyCon		( mkPrimTyCon, mkDataTyCon,
-			  ConsVisible(..), NewOrData(..) )
+import TyCon		( mkPrimTyCon, mkDataTyCon, NewOrData(..) )
 import TyVar		( GenTyVar(..), alphaTyVars )
 import Type		( applyTyCon, mkTyVarTys )
 import Usage		( usageOmega )
@@ -119,7 +118,6 @@ realWorldTyCon
 	[{-no context-}]
 	[{-no data cons!-}] -- we tell you *nothing* about this guy
 	[{-no derivings-}]
-	ConsInvisible
 	DataType
   where
     full_name = mkPreludeCoreName pRELUDE_BUILTIN SLIT("_RealWorld")