Commit 700819de authored by simonpj's avatar simonpj
Browse files

[project @ 2005-01-04 10:26:34 by simonpj]

Import trimming
parent ce82d32e
......@@ -48,7 +48,6 @@ import IdInfo ( IdInfo, vanillaIdInfo, occInfo, setOccInfo, specInfo, setSpecIn
import CoreSyn
import Rules ( RuleBase )
import CoreUtils ( needsCaseBinding )
import PprCore () -- Instances
import CostCentre ( CostCentreStack, subsumedCCS )
import Var
import VarEnv
......@@ -62,7 +61,6 @@ import Type ( Type, TvSubst(..), TvSubstEnv, composeTvSubst,
isUnLiftedType, seqType, tyVarsOfType )
import BasicTypes ( OccInfo(..), isFragileOcc )
import CmdLineOpts ( SimplifierMode(..) )
import Util ( mapAccumL )
import Outputable
\end{code}
......
......@@ -32,25 +32,24 @@ import CoreUtils ( cheapEqExpr, exprType, exprIsTrivial,
etaExpand, exprEtaExpandArity, bindNonRec, mkCoerce2,
findDefault, exprOkForSpeculation, exprIsValue
)
import Id ( Id, idType, idInfo, isDataConWorkId, idOccInfo,
import Id ( idType, isDataConWorkId, idOccInfo,
mkSysLocal, isDeadBinder, idNewDemandInfo, isExportedId,
idUnfolding, idNewStrictness, idInlinePragma,
)
import NewDemand ( isStrictDmd, isBotRes, splitStrictSig )
import SimplMonad
import Type ( Type, seqType, splitFunTys, dropForAlls, isStrictType,
import Type ( Type, splitFunTys, dropForAlls, isStrictType,
splitTyConApp_maybe, tyConAppArgs, mkTyVarTys
)
import TcType ( isDictTy )
import Name ( mkSysTvName )
import OccName ( EncodedFS )
import TyCon ( tyConDataCons_maybe, isAlgTyCon, isNewTyCon )
import DataCon ( dataConRepArity, dataConTyVars, dataConArgTys, isVanillaDataCon )
import Var ( tyVarKind, mkTyVar )
import VarSet
import BasicTypes ( TopLevelFlag(..), isTopLevel, OccInfo(..), isLoopBreaker, isOneOcc,
Activation, isAlwaysActive, isActive )
import Util ( lengthExceeds, mapAccumL )
import Util ( lengthExceeds )
import Outputable
\end{code}
......
Supports Markdown
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