From: simonmar <unknown>
Date: Tue, 11 Jul 2000 15:57:45 +0000 (+0000)
Subject: [project @ 2000-07-11 15:57:45 by simonmar]
X-Git-Tag: Approximately_9120_patches~4040
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=76050f0005db82e8de3f13c71d298e14f8d868c2;p=ghc-hetmet.git

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

diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index 62a8903..6bf156d 100644
--- a/ghc/compiler/coreSyn/CoreLint.lhs
+++ b/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
diff --git a/ghc/compiler/coreSyn/CoreTidy.lhs b/ghc/compiler/coreSyn/CoreTidy.lhs
index a1bd8ff..f3ba9c4 100644
--- a/ghc/compiler/coreSyn/CoreTidy.lhs
+++ b/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}
 
 
diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 02db3cb..463326e 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/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
diff --git a/ghc/compiler/coreSyn/Subst.lhs b/ghc/compiler/coreSyn/Subst.lhs
index 1f4c3b8..22128ef 100644
--- a/ghc/compiler/coreSyn/Subst.lhs
+++ b/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