X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fiface%2FIfaceSyn.lhs;h=4434c5dc105726b08ed514beeff666f814ecb7db;hb=a7ecdf96844404b7bc8273d4ff6d85759278427c;hp=a15f224c8c959a68ad4d025d647965351321d6f4;hpb=8a9aba1ff5e66aad02aba0997339ea6ec60d6b1e;p=ghc-hetmet.git

diff --git a/ghc/compiler/iface/IfaceSyn.lhs b/ghc/compiler/iface/IfaceSyn.lhs
index a15f224..4434c5d 100644
--- a/ghc/compiler/iface/IfaceSyn.lhs
+++ b/ghc/compiler/iface/IfaceSyn.lhs
@@ -59,9 +59,7 @@ import Class		( FunDep, DefMeth, classExtraBigSig, classTyCon )
 import OccName		( OccName, OccEnv, emptyOccEnv, 
 			  lookupOccEnv, extendOccEnv, parenSymOcc,
 			  OccSet, unionOccSets, unitOccSet )
-import Name		( Name, NamedThing(..), nameOccName, isExternalName,
-			  wiredInNameTyThing_maybe )
-import NameSet		( NameSet, elemNameSet )
+import Name		( Name, NamedThing(..), nameOccName, isExternalName )
 import CostCentre	( CostCentre, pprCostCentreCore )
 import Literal		( Literal )
 import ForeignCall	( ForeignCall )
@@ -562,11 +560,8 @@ instanceToIfaceInst ext_lhs ispec@(Instance { is_dfun = dfun_id, is_flag = oflag
 		ifInstTys = map do_rough mb_tcs,
 		ifInstOrph = orph }
   where
-    do_rough Nothing = Nothing
-    do_rough (Just n) | Just (ATyCon tc) <- wiredInNameTyThing_maybe n
-		      = Just (toIfaceTyCon ext_lhs tc)
-		      | otherwise   
-		      = Just (IfaceTc (ext_lhs n))
+    do_rough Nothing  = Nothing
+    do_rough (Just n) = Just (toIfaceTyCon_name ext_lhs n)
 
 --------------------------
 toIfaceIdInfo :: (Name -> IfaceExtName) -> IdInfo -> [IfaceInfoItem]