diff options
| author | simonpj <unknown> | 2005-12-29 12:06:13 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2005-12-29 12:06:13 +0000 |
| commit | 63539f9d057f2143ea395da99584bc898b321c9b (patch) | |
| tree | edc3c818358e9bf7c55c4c67de621ea82ff67b89 | |
| parent | abd374c9affb2fafd833def8e7d34e285049fe69 (diff) | |
| download | haskell-63539f9d057f2143ea395da99584bc898b321c9b.tar.gz | |
[project @ 2005-12-29 12:06:13 by simonpj]
Trim imports
| -rw-r--r-- | ghc/compiler/coreSyn/CoreSubst.lhs | 2 | ||||
| -rw-r--r-- | ghc/compiler/specialise/Rules.lhs | 5 | ||||
| -rw-r--r-- | ghc/compiler/specialise/SpecConstr.lhs | 4 |
3 files changed, 4 insertions, 7 deletions
diff --git a/ghc/compiler/coreSyn/CoreSubst.lhs b/ghc/compiler/coreSyn/CoreSubst.lhs index a4b86eadf3..24bf7df252 100644 --- a/ghc/compiler/coreSyn/CoreSubst.lhs +++ b/ghc/compiler/coreSyn/CoreSubst.lhs @@ -37,7 +37,7 @@ import Var ( setVarUnique, isId ) import Id ( idType, setIdType, maybeModifyIdInfo, isLocalId ) import IdInfo ( IdInfo, SpecInfo(..), specInfo, setSpecInfo, isEmptySpecInfo, unfoldingInfo, setUnfoldingInfo, seqSpecInfo, - WorkerInfo(..), workerExists, workerInfo, setWorkerInfo, WorkerInfo + WorkerInfo(..), workerExists, workerInfo, setWorkerInfo ) import Unique ( Unique ) import UniqSupply ( UniqSupply, uniqFromSupply, uniqsFromSupply ) diff --git a/ghc/compiler/specialise/Rules.lhs b/ghc/compiler/specialise/Rules.lhs index 6bb2eb1424..4d743140ea 100644 --- a/ghc/compiler/specialise/Rules.lhs +++ b/ghc/compiler/specialise/Rules.lhs @@ -22,14 +22,14 @@ import CoreFVs ( exprFreeVars, exprsFreeVars, rulesRhsFreeVars ) import CoreUnfold ( isCheapUnfolding, unfoldingTemplate ) import CoreUtils ( tcEqExprX ) import PprCore ( pprRules ) -import Type ( Type ) +import Type ( TvSubstEnv ) import TcType ( tcSplitTyConApp_maybe ) import CoreTidy ( tidyRules ) import Id ( Id, idUnfolding, isLocalId, isGlobalId, idName, idSpecialisation, idCoreRules, setIdSpecialisation ) import IdInfo ( SpecInfo( SpecInfo ) ) import Var ( Var ) -import VarEnv ( IdEnv, TyVarEnv, InScopeSet, emptyTidyEnv, +import VarEnv ( IdEnv, InScopeSet, emptyTidyEnv, emptyInScopeSet, mkInScopeSet, extendInScopeSetList, emptyVarEnv, lookupVarEnv, extendVarEnv, nukeRnEnvL, mkRnEnv2, rnOccR, rnOccL, inRnEnvR, @@ -352,7 +352,6 @@ matchN in_scope tmpl_vars tmpl_es target_es -- for uniformity with IdSubstEnv type SubstEnv = (TvSubstEnv, IdSubstEnv) type IdSubstEnv = IdEnv CoreExpr -type TvSubstEnv = TyVarEnv Type emptySubstEnv :: SubstEnv emptySubstEnv = (emptyVarEnv, emptyVarEnv) diff --git a/ghc/compiler/specialise/SpecConstr.lhs b/ghc/compiler/specialise/SpecConstr.lhs index 7463c9bb0a..6a2cd92224 100644 --- a/ghc/compiler/specialise/SpecConstr.lhs +++ b/ghc/compiler/specialise/SpecConstr.lhs @@ -28,10 +28,8 @@ import Name ( nameOccName, nameSrcLoc ) import Rules ( addIdSpecialisations, mkLocalRule, rulesOfBinds ) import OccName ( mkSpecOcc ) import ErrUtils ( dumpIfSet_dyn ) -import DynFlags ( DynFlags, DynFlag(..) ) +import DynFlags ( DynFlags, DynFlag(..) ) import BasicTypes ( Activation(..) ) -import Outputable - import Maybes ( orElse ) import Util ( mapAccumL, lengthAtLeast, notNull ) import List ( nubBy, partition ) |