Commit 0862ecec authored by simonpj's avatar simonpj
Browse files

[project @ 2003-01-13 13:10:19 by simonpj]

Import trimming
parent e65d8f38
......@@ -49,7 +49,7 @@ import TysWiredIn ( unitTyCon ) -- A little odd
import Finder ( findModule )
import FiniteMap
import UniqSupply
import SrcLoc ( SrcLoc, noSrcLoc, importedSrcLoc )
import SrcLoc ( SrcLoc, importedSrcLoc )
import Outputable
import ListSetOps ( removeDups, equivClasses )
import BasicTypes ( mapIPName, FixitySig(..) )
......
......@@ -38,7 +38,7 @@ import Name ( Name {-instance NamedThing-}, isWiredInName, isInternalName, name
)
import NameEnv ( delFromNameEnv, lookupNameEnv )
import NameSet
import Module ( Module, isHomeModule, extendModuleSet, moduleEnvElts )
import Module ( Module, isHomeModule )
import PrelNames ( hasKey, fractionalClassKey, numClassKey,
integerTyConName, doubleTyConName )
import FiniteMap
......
......@@ -74,7 +74,6 @@ import VarEnv ( TidyEnv, emptyTidyEnv, lookupSubstEnv, SubstResult(..) )
import VarSet ( elemVarSet, emptyVarSet, unionVarSet )
import TysWiredIn ( floatDataCon, doubleDataCon )
import PrelNames( fromIntegerName, fromRationalName, rationalTyConName )
import Util ( equalLength )
import BasicTypes( IPName(..), mapIPName, ipNameName )
import UniqSupply( uniqsFromSupply )
import Outputable
......
......@@ -14,7 +14,7 @@ import HscTypes ( HscEnv(..), PersistentCompilerState(..),
GlobalRdrEnv, LocalRdrEnv, NameCache, FixityEnv,
GhciMode, lookupType, unQualInScope )
import TcRnTypes
import Module ( Module, moduleName, unitModuleEnv, foldModuleEnv )
import Module ( Module, unitModuleEnv, foldModuleEnv )
import Name ( Name, isInternalName )
import Type ( Type )
import NameEnv ( extendNameEnvList )
......
......@@ -35,7 +35,7 @@ import Inst ( lookupInst, LookupInstResult(..),
instBindingRequired, instCanBeGeneralised,
newDictsFromOld, tcInstClassOp,
getDictClassTys, isTyVarDict,
instLoc, pprInst, zonkInst, tidyInsts, tidyMoreInsts,
instLoc, zonkInst, tidyInsts, tidyMoreInsts,
Inst, pprInsts, pprInstsInFull,
isIPDict, isInheritableInst
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment