From 700819ded66d6913484421b97a8c334fb65a44ee Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 4 Jan 2005 10:26:35 +0000
Subject: [PATCH] [project @ 2005-01-04 10:26:34 by simonpj] Import trimming

---
 ghc/compiler/simplCore/SimplEnv.lhs   |    2 --
 ghc/compiler/simplCore/SimplUtils.lhs |    7 +++----
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/ghc/compiler/simplCore/SimplEnv.lhs b/ghc/compiler/simplCore/SimplEnv.lhs
index 8a3841f..5f6dca2 100644
--- a/ghc/compiler/simplCore/SimplEnv.lhs
+++ b/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}
 
diff --git a/ghc/compiler/simplCore/SimplUtils.lhs b/ghc/compiler/simplCore/SimplUtils.lhs
index fd3de7e..827f5f47 100644
--- a/ghc/compiler/simplCore/SimplUtils.lhs
+++ b/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}
 
-- 
1.7.10.4