Commit 76050f00 authored by simonmar's avatar simonmar
Browse files

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

remove unused imports
parent d7d4132c
...@@ -39,7 +39,6 @@ import Type ( Type, tyVarsOfType, ...@@ -39,7 +39,6 @@ import Type ( Type, tyVarsOfType,
isUnboxedTupleType, isUnboxedTupleType,
hasMoreBoxityInfo hasMoreBoxityInfo
) )
import PprType ( {- instance Outputable Type -} )
import TyCon ( TyCon, isPrimTyCon, tyConDataCons ) import TyCon ( TyCon, isPrimTyCon, tyConDataCons )
import BasicTypes ( RecFlag(..), isNonRec ) import BasicTypes ( RecFlag(..), isNonRec )
import Maybe import Maybe
......
...@@ -26,7 +26,6 @@ import Id ( idType, idInfo, idName, idSpecialisation, ...@@ -26,7 +26,6 @@ import Id ( idType, idInfo, idName, idSpecialisation,
idDemandInfo, setIdDemandInfo, idDemandInfo, setIdDemandInfo,
) )
import IdInfo ( specInfo, setSpecInfo, import IdInfo ( specInfo, setSpecInfo,
inlinePragInfo, setInlinePragInfo, InlinePragInfo(..),
setUnfoldingInfo, setDemandInfo, setUnfoldingInfo, setDemandInfo,
workerInfo, setWorkerInfo, WorkerInfo(..) workerInfo, setWorkerInfo, WorkerInfo(..)
) )
...@@ -39,7 +38,6 @@ import UniqSupply ( UniqSupply ) ...@@ -39,7 +38,6 @@ import UniqSupply ( UniqSupply )
import Unique ( Uniquable(..) ) import Unique ( Uniquable(..) )
import SrcLoc ( noSrcLoc ) import SrcLoc ( noSrcLoc )
import Util ( mapAccumL ) import Util ( mapAccumL )
import Outputable
\end{code} \end{code}
......
...@@ -44,14 +44,12 @@ import CmdLineOpts ( opt_UF_CreationThreshold, ...@@ -44,14 +44,12 @@ import CmdLineOpts ( opt_UF_CreationThreshold,
import CoreSyn import CoreSyn
import PprCore ( pprCoreExpr ) import PprCore ( pprCoreExpr )
import OccurAnal ( occurAnalyseGlobalExpr ) import OccurAnal ( occurAnalyseGlobalExpr )
import BinderInfo ( )
import CoreUtils ( exprIsValue, exprIsCheap, exprIsBottom, exprIsTrivial ) import CoreUtils ( exprIsValue, exprIsCheap, exprIsBottom, exprIsTrivial )
import Id ( Id, idType, idFlavour, isId, idWorkerInfo, import Id ( Id, idType, idFlavour, isId, idWorkerInfo,
idSpecialisation, idInlinePragma, idUnfolding, idSpecialisation, idInlinePragma, idUnfolding,
isPrimOpId_maybe isPrimOpId_maybe
) )
import VarSet import VarSet
import Name ( isLocallyDefined )
import Literal ( isLitLitLit ) import Literal ( isLitLitLit )
import PrimOp ( PrimOp(..), primOpIsDupable, primOpOutOfLine, ccallIsCasm ) import PrimOp ( PrimOp(..), primOpIsDupable, primOpOutOfLine, ccallIsCasm )
import IdInfo ( ArityInfo(..), InlinePragInfo(..), OccInfo(..), IdFlavour(..), CprInfo(..), import IdInfo ( ArityInfo(..), InlinePragInfo(..), OccInfo(..), IdFlavour(..), CprInfo(..),
...@@ -59,10 +57,7 @@ import IdInfo ( ArityInfo(..), InlinePragInfo(..), OccInfo(..), IdFlavour(..), ...@@ -59,10 +57,7 @@ import IdInfo ( ArityInfo(..), InlinePragInfo(..), OccInfo(..), IdFlavour(..),
) )
import Type ( splitFunTy_maybe, isUnLiftedType ) import Type ( splitFunTy_maybe, isUnLiftedType )
import Unique ( Unique, buildIdKey, augmentIdKey, hasKey ) import Unique ( Unique, buildIdKey, augmentIdKey, hasKey )
import Maybes ( maybeToBool )
import Bag import Bag
import List ( maximumBy )
import Util ( isIn, lengthExceeds )
import Outputable import Outputable
#if __GLASGOW_HASKELL__ >= 404 #if __GLASGOW_HASKELL__ >= 404
......
...@@ -49,7 +49,6 @@ import IdInfo ( IdInfo, isFragileOccInfo, ...@@ -49,7 +49,6 @@ import IdInfo ( IdInfo, isFragileOccInfo,
specInfo, setSpecInfo, specInfo, setSpecInfo,
WorkerInfo(..), workerExists, workerInfo, setWorkerInfo, WorkerInfo WorkerInfo(..), workerExists, workerInfo, setWorkerInfo, WorkerInfo
) )
import BasicTypes ( OccInfo(..) )
import UniqSupply ( UniqSupply, uniqFromSupply, splitUniqSupply ) import UniqSupply ( UniqSupply, uniqFromSupply, splitUniqSupply )
import Var ( Var, Id, TyVar, isTyVar ) import Var ( Var, Id, TyVar, isTyVar )
import Outputable import Outputable
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment