[project @ 2000-07-11 15:57:45 by simonmar]

remove unused imports

ghc/compiler/coreSyn/CoreLint.lhs

@@ -39,7 +39,6 @@ import Type		( Type, tyVarsOfType,
 			  isUnboxedTupleType,
 			  hasMoreBoxityInfo
 			)
-import PprType		( {- instance Outputable Type -} )
 import TyCon		( TyCon, isPrimTyCon, tyConDataCons )
 import BasicTypes	( RecFlag(..), isNonRec )
 import Maybe

ghc/compiler/coreSyn/CoreTidy.lhs

@@ -26,7 +26,6 @@ import Id		( idType, idInfo, idName, idSpecialisation,
 			  idDemandInfo, setIdDemandInfo,
 			) 
 import IdInfo		( specInfo, setSpecInfo, 
-			  inlinePragInfo, setInlinePragInfo, InlinePragInfo(..),
 			  setUnfoldingInfo, setDemandInfo,
 			  workerInfo, setWorkerInfo, WorkerInfo(..)
 			)
@@ -39,7 +38,6 @@ import UniqSupply	( UniqSupply )
 import Unique		( Uniquable(..) )
 import SrcLoc		( noSrcLoc )
 import Util		( mapAccumL )
-import Outputable
 \end{code}
 
 

ghc/compiler/coreSyn/CoreUnfold.lhs

@@ -44,14 +44,12 @@ import CmdLineOpts	( opt_UF_CreationThreshold,
 import CoreSyn
 import PprCore		( pprCoreExpr )
 import OccurAnal	( occurAnalyseGlobalExpr )
-import BinderInfo	( )
 import CoreUtils	( exprIsValue, exprIsCheap, exprIsBottom, exprIsTrivial )
 import Id		( Id, idType, idFlavour, isId, idWorkerInfo,
 			  idSpecialisation, idInlinePragma, idUnfolding,
 			  isPrimOpId_maybe
 			)
 import VarSet
-import Name		( isLocallyDefined )
 import Literal		( isLitLitLit )
 import PrimOp		( PrimOp(..), primOpIsDupable, primOpOutOfLine, ccallIsCasm )
 import IdInfo		( ArityInfo(..), InlinePragInfo(..), OccInfo(..), IdFlavour(..), CprInfo(..), 
@@ -59,10 +57,7 @@ import IdInfo		( ArityInfo(..), InlinePragInfo(..), OccInfo(..), IdFlavour(..),
 			)
 import Type		( splitFunTy_maybe, isUnLiftedType )
 import Unique		( Unique, buildIdKey, augmentIdKey, hasKey )
-import Maybes		( maybeToBool )
 import Bag
-import List		( maximumBy )
-import Util		( isIn, lengthExceeds )
 import Outputable
 
 #if __GLASGOW_HASKELL__ >= 404

ghc/compiler/coreSyn/Subst.lhs

@@ -49,7 +49,6 @@ import IdInfo		( IdInfo, isFragileOccInfo,
 			  specInfo, setSpecInfo, 
 			  WorkerInfo(..), workerExists, workerInfo, setWorkerInfo, WorkerInfo
 			)
-import BasicTypes	( OccInfo(..) )
 import UniqSupply	( UniqSupply, uniqFromSupply, splitUniqSupply )
 import Var		( Var, Id, TyVar, isTyVar )
 import Outputable