From: simonpj <unknown>
Date: Tue, 4 Jan 2005 10:26:35 +0000 (+0000)
Subject: [project @ 2005-01-04 10:26:34 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1305
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=700819ded66d6913484421b97a8c334fb65a44ee;p=ghc-hetmet.git

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

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}