X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FIfaceEnv.lhs;h=61759658d35510944893d03558df75b34f4586cd;hb=171c3d1ea2dc92a8b5e6e76c435286ce5be53386;hp=cea950873f89f0248daa80147bd4a3801020ed58;hpb=334ce30ed6285b6fd57a35f130cb932f651f2eaf;p=ghc-hetmet.git

diff --git a/compiler/iface/IfaceEnv.lhs b/compiler/iface/IfaceEnv.lhs
index cea9508..6175965 100644
--- a/compiler/iface/IfaceEnv.lhs
+++ b/compiler/iface/IfaceEnv.lhs
@@ -22,18 +22,17 @@ import IfaceType	( IfaceExtName(..), IfaceTyCon(..), ifaceTyConName )
 import TysWiredIn	( tupleTyCon, tupleCon )
 import HscTypes		( NameCache(..), HscEnv(..), GenAvailInfo(..), 
 			  IfaceExport, OrigNameCache )
-import Type		( mkOpenTvSubst, substTy )
 import TyCon		( TyCon, tyConName )
 import DataCon		( dataConWorkId, dataConName )
-import Var		( TyVar, Id, varName, setIdType, idType )
+import Var		( TyVar, Id, varName )
 import Name		( Name, nameUnique, nameModule, 
 			  nameOccName, nameSrcLoc, 
 			  getOccName, nameParent_maybe,
 		  	  isWiredInName, mkIPName,
 			  mkExternalName, mkInternalName )
 import NameSet		( NameSet, emptyNameSet, addListToNameSet )
-import OccName		( OccName, isTupleOcc_maybe, tcName, dataName, mapOccEnv, occNameFS,
-			  lookupOccEnv, unitOccEnv, extendOccEnv, extendOccEnvList )
+import OccName		( OccName, isTupleOcc_maybe, tcName, dataName, occNameFS,
+			  lookupOccEnv, unitOccEnv, extendOccEnv )
 import PrelNames	( gHC_PRIM, dATA_TUP )
 import Module		( Module, emptyModuleEnv, ModuleName, modulePackageId,
 			  lookupModuleEnv, extendModuleEnv_C, mkModule )