X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=751811125ed42b4178e925a342e19f270eb4c832;hb=9a8c922e5beacdf8969f1d6d6878f5e5812d3bf8;hp=2f17fe7f899b926e9a376acee43f7b6134f3015f;hpb=311b1cdfc9b1c311cc53482c461c18cba8885b2a;p=ghc-hetmet.git

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index 2f17fe7..7518111 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -1076,17 +1076,6 @@ tyThingToIfaceDecl (ATyCon tycon)
   = IfaceForeign { ifName    = getOccName tycon,
 	    	   ifExtName = tyConExtName tycon }
 
-  | isPrimTyCon tycon || isFunTyCon tycon
-	-- Needed in GHCi for ':info Int#', for example
-  = IfaceData { ifName    = getOccName tycon,
-	  	ifTyVars  = toIfaceTvBndrs (take (tyConArity tycon) alphaTyVars),
-		ifCtxt	  = [],
-		ifCons    = IfAbstractTyCon,
-		ifGadtSyntax = False,
-		ifGeneric = False,
-		ifRec     = NonRecursive,
-		ifFamInst = Nothing }
-
   | otherwise = pprPanic "toIfaceDecl" (ppr tycon)
   where
     tyvars = tyConTyVars tycon