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

Import trimming

ghc/compiler/simplCore/SimplEnv.lhs

@@ -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}
 

ghc/compiler/simplCore/SimplUtils.lhs

@@ -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}