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 ...@@ -49,7 +49,7 @@ import TysWiredIn ( unitTyCon ) -- A little odd
import Finder ( findModule ) import Finder ( findModule )
import FiniteMap import FiniteMap
import UniqSupply import UniqSupply
import SrcLoc ( SrcLoc, noSrcLoc, importedSrcLoc ) import SrcLoc ( SrcLoc, importedSrcLoc )
import Outputable import Outputable
import ListSetOps ( removeDups, equivClasses ) import ListSetOps ( removeDups, equivClasses )
import BasicTypes ( mapIPName, FixitySig(..) ) import BasicTypes ( mapIPName, FixitySig(..) )
......
...@@ -38,7 +38,7 @@ import Name ( Name {-instance NamedThing-}, isWiredInName, isInternalName, name ...@@ -38,7 +38,7 @@ import Name ( Name {-instance NamedThing-}, isWiredInName, isInternalName, name
) )
import NameEnv ( delFromNameEnv, lookupNameEnv ) import NameEnv ( delFromNameEnv, lookupNameEnv )
import NameSet import NameSet
import Module ( Module, isHomeModule, extendModuleSet, moduleEnvElts ) import Module ( Module, isHomeModule )
import PrelNames ( hasKey, fractionalClassKey, numClassKey, import PrelNames ( hasKey, fractionalClassKey, numClassKey,
integerTyConName, doubleTyConName ) integerTyConName, doubleTyConName )
import FiniteMap import FiniteMap
......
...@@ -74,7 +74,6 @@ import VarEnv ( TidyEnv, emptyTidyEnv, lookupSubstEnv, SubstResult(..) ) ...@@ -74,7 +74,6 @@ import VarEnv ( TidyEnv, emptyTidyEnv, lookupSubstEnv, SubstResult(..) )
import VarSet ( elemVarSet, emptyVarSet, unionVarSet ) import VarSet ( elemVarSet, emptyVarSet, unionVarSet )
import TysWiredIn ( floatDataCon, doubleDataCon ) import TysWiredIn ( floatDataCon, doubleDataCon )
import PrelNames( fromIntegerName, fromRationalName, rationalTyConName ) import PrelNames( fromIntegerName, fromRationalName, rationalTyConName )
import Util ( equalLength )
import BasicTypes( IPName(..), mapIPName, ipNameName ) import BasicTypes( IPName(..), mapIPName, ipNameName )
import UniqSupply( uniqsFromSupply ) import UniqSupply( uniqsFromSupply )
import Outputable import Outputable
......
...@@ -14,7 +14,7 @@ import HscTypes ( HscEnv(..), PersistentCompilerState(..), ...@@ -14,7 +14,7 @@ import HscTypes ( HscEnv(..), PersistentCompilerState(..),
GlobalRdrEnv, LocalRdrEnv, NameCache, FixityEnv, GlobalRdrEnv, LocalRdrEnv, NameCache, FixityEnv,
GhciMode, lookupType, unQualInScope ) GhciMode, lookupType, unQualInScope )
import TcRnTypes import TcRnTypes
import Module ( Module, moduleName, unitModuleEnv, foldModuleEnv ) import Module ( Module, unitModuleEnv, foldModuleEnv )
import Name ( Name, isInternalName ) import Name ( Name, isInternalName )
import Type ( Type ) import Type ( Type )
import NameEnv ( extendNameEnvList ) import NameEnv ( extendNameEnvList )
......
...@@ -35,7 +35,7 @@ import Inst ( lookupInst, LookupInstResult(..), ...@@ -35,7 +35,7 @@ import Inst ( lookupInst, LookupInstResult(..),
instBindingRequired, instCanBeGeneralised, instBindingRequired, instCanBeGeneralised,
newDictsFromOld, tcInstClassOp, newDictsFromOld, tcInstClassOp,
getDictClassTys, isTyVarDict, getDictClassTys, isTyVarDict,
instLoc, pprInst, zonkInst, tidyInsts, tidyMoreInsts, instLoc, zonkInst, tidyInsts, tidyMoreInsts,
Inst, pprInsts, pprInstsInFull, Inst, pprInsts, pprInstsInFull,
isIPDict, isInheritableInst 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