Commit 703ca154 authored by Ian Lynagh's avatar Ian Lynagh

Remove unused imports

parent 7bb3d1fc
...@@ -50,7 +50,6 @@ import TysPrim ...@@ -50,7 +50,6 @@ import TysPrim
import TysWiredIn import TysWiredIn
import PrelRules import PrelRules
import Type import Type
import TypeRep
import Coercion import Coercion
import TcType import TcType
import CoreUtils ( exprType, mkCoerce ) import CoreUtils ( exprType, mkCoerce )
...@@ -60,7 +59,6 @@ import TyCon ...@@ -60,7 +59,6 @@ import TyCon
import Class import Class
import VarSet import VarSet
import Name import Name
import OccName
import PrimOp import PrimOp
import ForeignCall import ForeignCall
import DataCon import DataCon
...@@ -70,7 +68,6 @@ import IdInfo ...@@ -70,7 +68,6 @@ import IdInfo
import NewDemand import NewDemand
import CoreSyn import CoreSyn
import Unique import Unique
import Maybes
import PrelNames import PrelNames
import BasicTypes hiding ( SuccessFlag(..) ) import BasicTypes hiding ( SuccessFlag(..) )
import Util import Util
......
...@@ -18,7 +18,6 @@ import BlockId ...@@ -18,7 +18,6 @@ import BlockId
import Bitmap import Bitmap
import CLabel import CLabel
import Cmm hiding (blockId) import Cmm hiding (blockId)
import CmmExpr
import CmmInfo import CmmInfo
import CmmProcPointZ import CmmProcPointZ
import CmmStackLayout import CmmStackLayout
...@@ -35,7 +34,6 @@ import MkZipCfgCmm hiding (CmmAGraph, CmmBlock, CmmTopZ, CmmZ, CmmGraph) ...@@ -35,7 +34,6 @@ import MkZipCfgCmm hiding (CmmAGraph, CmmBlock, CmmTopZ, CmmZ, CmmGraph)
import Monad import Monad
import Name import Name
import Outputable import Outputable
import Panic
import SMRep import SMRep
import StgCmmClosure import StgCmmClosure
import StgCmmForeign import StgCmmForeign
......
...@@ -32,8 +32,6 @@ import UniqSet ...@@ -32,8 +32,6 @@ import UniqSet
import Unique import Unique
import Monad import Monad
import IO
import Data.List
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- |Top level driver for the CPS pass -- |Top level driver for the CPS pass
......
...@@ -24,7 +24,6 @@ import Constants ...@@ -24,7 +24,6 @@ import Constants
import StaticFlags import StaticFlags
import Unique import Unique
import Maybe import Maybe
import List
import FastString import FastString
import Panic import Panic
......
...@@ -15,7 +15,6 @@ import ZipCfgCmmRep (Convention(..)) ...@@ -15,7 +15,6 @@ import ZipCfgCmmRep (Convention(..))
import Constants import Constants
import StaticFlags (opt_Unregisterised) import StaticFlags (opt_Unregisterised)
import Outputable import Outputable
import Panic
-- Calculate the 'GlobalReg' or stack locations for function call -- Calculate the 'GlobalReg' or stack locations for function call
-- parameters as used by the Cmm calling convention. -- parameters as used by the Cmm calling convention.
......
...@@ -6,7 +6,6 @@ where ...@@ -6,7 +6,6 @@ where
import BlockId import BlockId
import Cmm import Cmm
import CmmExpr
import MkZipCfgCmm hiding (CmmGraph) import MkZipCfgCmm hiding (CmmGraph)
import ZipCfgCmmRep -- imported for reverse conversion import ZipCfgCmmRep -- imported for reverse conversion
import CmmZipUtil import CmmZipUtil
...@@ -16,11 +15,8 @@ import qualified ZipCfg as G ...@@ -16,11 +15,8 @@ import qualified ZipCfg as G
import FastString import FastString
import Monad import Monad
import Outputable import Outputable
import Panic
import UniqSupply import UniqSupply
import Maybe
cmmToZgraph :: GenCmm d h (ListGraph CmmStmt) -> UniqSM (GenCmm d h (CmmStackInfo, CmmGraph)) cmmToZgraph :: GenCmm d h (ListGraph CmmStmt) -> UniqSM (GenCmm d h (CmmStackInfo, CmmGraph))
cmmOfZgraph :: GenCmm d h (CmmStackInfo, CmmGraph) -> GenCmm d h (ListGraph CmmStmt) cmmOfZgraph :: GenCmm d h (CmmStackInfo, CmmGraph) -> GenCmm d h (ListGraph CmmStmt)
......
...@@ -11,7 +11,6 @@ import BlockId ...@@ -11,7 +11,6 @@ import BlockId
import CLabel import CLabel
import Cmm hiding (blockId) import Cmm hiding (blockId)
import CmmContFlowOpt import CmmContFlowOpt
import CmmExpr
import CmmInfo import CmmInfo
import CmmLiveZ import CmmLiveZ
import CmmTx import CmmTx
...@@ -23,7 +22,6 @@ import MkZipCfg ...@@ -23,7 +22,6 @@ import MkZipCfg
import MkZipCfgCmm hiding (CmmBlock, CmmGraph, CmmTopZ) import MkZipCfgCmm hiding (CmmBlock, CmmGraph, CmmTopZ)
import Monad import Monad
import Outputable import Outputable
import Panic
import UniqSet import UniqSet
import UniqSupply import UniqSupply
import ZipCfg import ZipCfg
......
...@@ -18,7 +18,6 @@ import CmmTx ...@@ -18,7 +18,6 @@ import CmmTx
import CmmLiveZ import CmmLiveZ
import DFMonad import DFMonad
import MkZipCfg import MkZipCfg
import OptimizationFuel
import PprCmm() import PprCmm()
import ZipCfg import ZipCfg
import ZipCfgCmmRep import ZipCfgCmmRep
...@@ -27,7 +26,6 @@ import ZipDataflow ...@@ -27,7 +26,6 @@ import ZipDataflow
import Monad import Monad
import Outputable hiding (empty) import Outputable hiding (empty)
import qualified Outputable as PP import qualified Outputable as PP
import Panic
import UniqSet import UniqSet
import Maybe import Maybe
......
...@@ -18,7 +18,6 @@ import MkZipCfg ...@@ -18,7 +18,6 @@ import MkZipCfg
import MkZipCfgCmm hiding (CmmBlock, CmmGraph) import MkZipCfgCmm hiding (CmmBlock, CmmGraph)
import Monad import Monad
import Outputable import Outputable
import Panic
import SMRep (ByteOff) import SMRep (ByteOff)
import ZipCfg import ZipCfg
import ZipCfg as Z import ZipCfg as Z
......
...@@ -16,7 +16,6 @@ import CmmTx ...@@ -16,7 +16,6 @@ import CmmTx
import PprCmm() import PprCmm()
import OptimizationFuel import OptimizationFuel
import Control.Monad
import Maybes import Maybes
import Outputable import Outputable
import UniqSupply import UniqSupply
......
...@@ -6,7 +6,6 @@ where ...@@ -6,7 +6,6 @@ where
import BlockId import BlockId
import Cmm import Cmm
import CmmExpr
import PprCmm import PprCmm
import Outputable import Outputable
import qualified ZipCfgCmmRep as G import qualified ZipCfgCmmRep as G
......
...@@ -29,10 +29,8 @@ import qualified ZipCfg as G ...@@ -29,10 +29,8 @@ import qualified ZipCfg as G
import Maybes import Maybes
import Outputable import Outputable
import Panic
import Control.Monad import Control.Monad
import Maybe
{- {-
......
...@@ -48,8 +48,6 @@ import ListSetOps ...@@ -48,8 +48,6 @@ import ListSetOps
import Util import Util
import FastString import FastString
import StaticFlags import StaticFlags
import Control.Monad
\end{code} \end{code}
......
...@@ -39,7 +39,6 @@ import DataCon ...@@ -39,7 +39,6 @@ import DataCon
import Unique import Unique
import StaticFlags import StaticFlags
import Maybes
import Constants import Constants
import Util import Util
import Outputable import Outputable
......
...@@ -30,7 +30,6 @@ import CLabel ...@@ -30,7 +30,6 @@ import CLabel
import ClosureInfo import ClosureInfo
import CostCentre import CostCentre
import Id import Id
import Var
import SMRep import SMRep
import BasicTypes import BasicTypes
\end{code} \end{code}
......
...@@ -50,7 +50,6 @@ import FastString ...@@ -50,7 +50,6 @@ import FastString
import Constants -- Lots of field offsets import Constants -- Lots of field offsets
import Outputable import Outputable
import Data.Maybe
import Data.Char import Data.Char
import Control.Monad import Control.Monad
......
...@@ -41,7 +41,6 @@ import HscTypes ...@@ -41,7 +41,6 @@ import HscTypes
import CostCentre import CostCentre
import Id import Id
import Name import Name
import OccName
import TyCon import TyCon
import Module import Module
import ErrUtils import ErrUtils
......
...@@ -41,7 +41,6 @@ import IdInfo ...@@ -41,7 +41,6 @@ import IdInfo
import Type import Type
import DataCon import DataCon
import Name import Name
import OccName
import TyCon import TyCon
import Module import Module
import ErrUtils import ErrUtils
......
...@@ -47,8 +47,6 @@ import Outputable ...@@ -47,8 +47,6 @@ import Outputable
import FastString import FastString
import Maybes import Maybes
import Data.List
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Top-level bindings -- Top-level bindings
------------------------------------------------------------------------ ------------------------------------------------------------------------
......
...@@ -82,7 +82,6 @@ import Id ...@@ -82,7 +82,6 @@ import Id
import IdInfo import IdInfo
import DataCon import DataCon
import Name import Name
import OccName
import Type import Type
import TypeRep import TypeRep
import TcType import TcType
......
...@@ -41,7 +41,6 @@ import FastString ...@@ -41,7 +41,6 @@ import FastString
import PprCmm ( {- instance Outputable -} ) import PprCmm ( {- instance Outputable -} )
import Id import Id
import VarEnv import VarEnv
import Maybes
import Monad import Monad
import Name import Name
import StgSyn import StgSyn
......
...@@ -42,7 +42,6 @@ import CostCentre ...@@ -42,7 +42,6 @@ import CostCentre
import Outputable import Outputable
import FastString( LitString, mkFastString, sLit ) import FastString( LitString, mkFastString, sLit )
import Constants import Constants
import Data.List
----------------------------------------------------------- -----------------------------------------------------------
......
...@@ -59,7 +59,6 @@ import StaticFlags ...@@ -59,7 +59,6 @@ import StaticFlags
import Bitmap import Bitmap
import Data.Bits import Data.Bits
import Maybes
import Constants import Constants
import Util import Util
import Data.List import Data.List
......
...@@ -52,7 +52,6 @@ import FastString ...@@ -52,7 +52,6 @@ import FastString
import Constants -- Lots of field offsets import Constants -- Lots of field offsets
import Outputable import Outputable
import Data.Maybe
import Data.Char import Data.Char
import Control.Monad import Control.Monad
......
...@@ -50,7 +50,6 @@ import StgCmmMonad ...@@ -50,7 +50,6 @@ import StgCmmMonad
import StgCmmClosure import StgCmmClosure
import BlockId import BlockId
import Cmm import Cmm
import CmmExpr
import MkZipCfgCmm import MkZipCfgCmm
import CLabel import CLabel
import CmmUtils import CmmUtils
......
...@@ -34,9 +34,6 @@ import Outputable ...@@ -34,9 +34,6 @@ import Outputable
import DynFlags import DynFlags
import StaticFlags ( opt_NoStateHack ) import StaticFlags ( opt_NoStateHack )
import FastString import FastString
import Maybes
import GHC.Exts -- For `xori`
\end{code} \end{code}
%************************************************************************ %************************************************************************
......
...@@ -22,7 +22,6 @@ import Var ...@@ -22,7 +22,6 @@ import Var
import VarEnv import VarEnv
import UniqFM import UniqFM
import Name hiding (tidyNameOcc) import Name hiding (tidyNameOcc)
import OccName
import SrcLoc import SrcLoc
import Maybes import Maybes
......
...@@ -50,7 +50,6 @@ import TysWiredIn ...@@ -50,7 +50,6 @@ import TysWiredIn
import PrelNames import PrelNames
import Type import Type
import TypeRep
import TysPrim ( alphaTyVar ) import TysPrim ( alphaTyVar )
import DataCon ( DataCon, dataConWorkId ) import DataCon ( DataCon, dataConWorkId )
......
...@@ -27,7 +27,6 @@ import FiniteMap ...@@ -27,7 +27,6 @@ import FiniteMap
import Data.Array import Data.Array
import Data.Maybe import Data.Maybe
import System.IO (FilePath)
import System.Directory ( createDirectoryIfMissing ) import System.Directory ( createDirectoryIfMissing )
import Trace.Hpc.Mix import Trace.Hpc.Mix
......
...@@ -41,7 +41,6 @@ import Var ( Var, TyVar ) ...@@ -41,7 +41,6 @@ import Var ( Var, TyVar )
import VarSet import VarSet
import Rules import Rules
import VarEnv import VarEnv
import Type
import Outputable import Outputable
import SrcLoc import SrcLoc
import Maybes import Maybes
......
...@@ -24,7 +24,6 @@ import DsMonad ...@@ -24,7 +24,6 @@ import DsMonad
import CoreUtils import CoreUtils
import MkCore import MkCore
import Var import Var
import Id
import MkId import MkId
import Maybes import Maybes
import ForeignCall import ForeignCall
......
...@@ -29,7 +29,6 @@ import Name ...@@ -29,7 +29,6 @@ import Name
import NameEnv import NameEnv
#ifdef GHCI #ifdef GHCI
import PrelNames
-- Template Haskell stuff iff bootstrapped -- Template Haskell stuff iff bootstrapped
import DsMeta import DsMeta
#endif #endif
......
...@@ -25,7 +25,6 @@ module DsMeta( dsBracket, ...@@ -25,7 +25,6 @@ module DsMeta( dsBracket,
import {-# SOURCE #-} DsExpr ( dsExpr ) import {-# SOURCE #-} DsExpr ( dsExpr )
import MatchLit import MatchLit
import DsUtils
import DsMonad import DsMonad
import qualified Language.Haskell.TH as TH import qualified Language.Haskell.TH as TH
......
...@@ -53,10 +53,8 @@ import Type ...@@ -53,10 +53,8 @@ import Type
import UniqSupply import UniqSupply
import Name import Name
import NameEnv import NameEnv
import OccName
import DynFlags import DynFlags
import ErrUtils import ErrUtils
import MonadUtils
import FastString import FastString
import Data.IORef import Data.IORef
......
...@@ -23,7 +23,6 @@ import HsSyn ...@@ -23,7 +23,6 @@ import HsSyn
import DsBinds import DsBinds
import DataCon import DataCon
import TcType import TcType
import Type
import CoreSyn import CoreSyn
import MkCore import MkCore
import DsMonad import DsMonad
......
...@@ -27,10 +27,8 @@ import TyCon ...@@ -27,10 +27,8 @@ import TyCon
import DataCon import DataCon
import TcHsSyn ( shortCutLit ) import TcHsSyn ( shortCutLit )
import TcType import TcType
import Type
import PrelNames import PrelNames
import TysWiredIn import TysWiredIn
import Unique
import Literal import Literal
import SrcLoc import SrcLoc
import Ratio import Ratio
......
...@@ -30,7 +30,6 @@ import PrimOp ...@@ -30,7 +30,6 @@ import PrimOp
import Constants import Constants
import FastString import FastString
import SMRep import SMRep
import FiniteMap
import Outputable import Outputable