X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fprelude%2FPrelInfo.lhs;fp=ghc%2Fcompiler%2Fprelude%2FPrelInfo.lhs;h=9e2892001f838cabf39336de43404437824f30bb;hb=42b63073fb5e71fcd539ab80289cf6cf2a5b9641;hp=92c898bfa44296ca078b7ce6d56d7e8e24c1943f;hpb=87bfa396ca8cea3296e8a715766062dc4d2c1d9b;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 92c898b..9e28920 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -47,7 +47,7 @@ import OccName		( mkVarOcc )
 import TysPrim		( primTyCons )
 import TysWiredIn	( wiredInTyCons )
 import RdrHsSyn		( mkClassDecl )
-import HscTypes 	( TyThing(..), implicitTyThingIds, TypeEnv, mkTypeEnv,
+import HscTypes 	( TyThing(..), implicitTyThings, TypeEnv, mkTypeEnv,
 			  GenAvailInfo(..), RdrAvailInfo )
 import Class	 	( Class, classKey, className )
 import Type		( funTyCon, openTypeKind, liftedTypeKind )
@@ -71,7 +71,7 @@ wiredInThings
   = concat
     [		-- Wired in TyCons and their implicit Ids
 	  tycon_things
-	, map AnId (implicitTyThingIds tycon_things)
+	, implicitTyThings tycon_things
 
 		-- Wired in Ids
 	, map AnId wiredInIds