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

Remove unused imports

parent 7bb3d1fc
......@@ -50,7 +50,6 @@ import TysPrim
import TysWiredIn
import PrelRules
import Type
import TypeRep
import Coercion
import TcType
import CoreUtils ( exprType, mkCoerce )
......@@ -60,7 +59,6 @@ import TyCon
import Class
import VarSet
import Name
import OccName
import PrimOp
import ForeignCall
import DataCon
......@@ -70,7 +68,6 @@ import IdInfo
import NewDemand
import CoreSyn
import Unique
import Maybes
import PrelNames
import BasicTypes hiding ( SuccessFlag(..) )
import Util
......
......@@ -18,7 +18,6 @@ import BlockId
import Bitmap
import CLabel
import Cmm hiding (blockId)
import CmmExpr
import CmmInfo
import CmmProcPointZ
import CmmStackLayout
......@@ -35,7 +34,6 @@ import MkZipCfgCmm hiding (CmmAGraph, CmmBlock, CmmTopZ, CmmZ, CmmGraph)
import Monad
import Name
import Outputable
import Panic
import SMRep
import StgCmmClosure
import StgCmmForeign
......
......@@ -32,8 +32,6 @@ import UniqSet
import Unique
import Monad
import IO
import Data.List
-----------------------------------------------------------------------------
-- |Top level driver for the CPS pass
......
......@@ -24,7 +24,6 @@ import Constants
import StaticFlags
import Unique
import Maybe
import List
import FastString
import Panic
......
......@@ -15,7 +15,6 @@ import ZipCfgCmmRep (Convention(..))
import Constants
import StaticFlags (opt_Unregisterised)
import Outputable
import Panic
-- Calculate the 'GlobalReg' or stack locations for function call
-- parameters as used by the Cmm calling convention.
......
......@@ -6,7 +6,6 @@ where
import BlockId
import Cmm
import CmmExpr
import MkZipCfgCmm hiding (CmmGraph)
import ZipCfgCmmRep -- imported for reverse conversion
import CmmZipUtil
......@@ -16,11 +15,8 @@ import qualified ZipCfg as G
import FastString
import Monad
import Outputable
import Panic
import UniqSupply
import Maybe
cmmToZgraph :: GenCmm d h (ListGraph CmmStmt) -> UniqSM (GenCmm d h (CmmStackInfo, CmmGraph))
cmmOfZgraph :: GenCmm d h (CmmStackInfo, CmmGraph) -> GenCmm d h (ListGraph CmmStmt)
......
......@@ -11,7 +11,6 @@ import BlockId
import CLabel
import Cmm hiding (blockId)
import CmmContFlowOpt
import CmmExpr
import CmmInfo
import CmmLiveZ
import CmmTx
......@@ -23,7 +22,6 @@ import MkZipCfg
import MkZipCfgCmm hiding (CmmBlock, CmmGraph, CmmTopZ)
import Monad
import Outputable
import Panic
import UniqSet
import UniqSupply
import ZipCfg
......
......@@ -18,7 +18,6 @@ import CmmTx
import CmmLiveZ
import DFMonad
import MkZipCfg
import OptimizationFuel
import PprCmm()
import ZipCfg
import ZipCfgCmmRep
......@@ -27,7 +26,6 @@ import ZipDataflow
import Monad
import Outputable hiding (empty)
import qualified Outputable as PP
import Panic
import UniqSet
import Maybe
......
......@@ -18,7 +18,6 @@ import MkZipCfg
import MkZipCfgCmm hiding (CmmBlock, CmmGraph)
import Monad
import Outputable
import Panic
import SMRep (ByteOff)
import ZipCfg
import ZipCfg as Z
......
......@@ -16,7 +16,6 @@ import CmmTx
import PprCmm()
import OptimizationFuel
import Control.Monad
import Maybes
import Outputable
import UniqSupply
......
......@@ -6,7 +6,6 @@ where
import BlockId
import Cmm
import CmmExpr
import PprCmm
import Outputable
import qualified ZipCfgCmmRep as G
......
......@@ -29,10 +29,8 @@ import qualified ZipCfg as G
import Maybes
import Outputable
import Panic
import Control.Monad
import Maybe
{-
......
......@@ -48,8 +48,6 @@ import ListSetOps
import Util
import FastString
import StaticFlags
import Control.Monad
\end{code}
......
......@@ -39,7 +39,6 @@ import DataCon
import Unique
import StaticFlags
import Maybes
import Constants
import Util
import Outputable
......
......@@ -30,7 +30,6 @@ import CLabel
import ClosureInfo
import CostCentre
import Id
import Var
import SMRep
import BasicTypes
\end{code}
......
......@@ -50,7 +50,6 @@ import FastString
import Constants -- Lots of field offsets
import Outputable
import Data.Maybe
import Data.Char
import Control.Monad
......
......@@ -41,7 +41,6 @@ import HscTypes
import CostCentre
import Id
import Name
import OccName
import TyCon
import Module
import ErrUtils
......
......@@ -41,7 +41,6 @@ import IdInfo
import Type
import DataCon
import Name
import OccName
import TyCon
import Module
import ErrUtils
......
......@@ -47,8 +47,6 @@ import Outputable
import FastString
import Maybes
import Data.List
------------------------------------------------------------------------
-- Top-level bindings
------------------------------------------------------------------------
......
......@@ -82,7 +82,6 @@ import Id
import IdInfo
import DataCon
import Name
import OccName
import Type
import TypeRep
import TcType
......
......@@ -41,7 +41,6 @@ import FastString
import PprCmm ( {- instance Outputable -} )
import Id
import VarEnv
import Maybes
import Monad
import Name
import StgSyn
......
......@@ -42,7 +42,6 @@ import CostCentre
import Outputable
import FastString( LitString, mkFastString, sLit )
import Constants
import Data.List
-----------------------------------------------------------
......
......@@ -59,7 +59,6 @@ import StaticFlags
import Bitmap
import Data.Bits
import Maybes
import Constants
import Util
import Data.List
......
......@@ -52,7 +52,6 @@ import FastString
import Constants -- Lots of field offsets
import Outputable
import Data.Maybe
import Data.Char
import Control.Monad
......
......@@ -50,7 +50,6 @@ import StgCmmMonad
import StgCmmClosure
import BlockId
import Cmm
import CmmExpr
import MkZipCfgCmm
import CLabel
import CmmUtils
......
......@@ -34,9 +34,6 @@ import Outputable
import DynFlags
import StaticFlags ( opt_NoStateHack )
import FastString
import Maybes
import GHC.Exts -- For `xori`
\end{code}
%************************************************************************
......
......@@ -22,7 +22,6 @@ import Var
import VarEnv
import UniqFM
import Name hiding (tidyNameOcc)
import OccName
import SrcLoc
import Maybes
......
......@@ -50,7 +50,6 @@ import TysWiredIn
import PrelNames
import Type
import TypeRep
import TysPrim ( alphaTyVar )
import DataCon ( DataCon, dataConWorkId )
......
......@@ -27,7 +27,6 @@ import FiniteMap
import Data.Array
import Data.Maybe
import System.IO (FilePath)
import System.Directory ( createDirectoryIfMissing )
import Trace.Hpc.Mix
......
......@@ -41,7 +41,6 @@ import Var ( Var, TyVar )
import VarSet
import Rules
import VarEnv
import Type
import Outputable
import SrcLoc
import Maybes
......
......@@ -24,7 +24,6 @@ import DsMonad
import CoreUtils
import MkCore
import Var
import Id
import MkId
import Maybes
import ForeignCall
......
......@@ -29,7 +29,6 @@ import Name
import NameEnv
#ifdef GHCI
import PrelNames
-- Template Haskell stuff iff bootstrapped
import DsMeta
#endif
......
......@@ -25,7 +25,6 @@ module DsMeta( dsBracket,
import {-# SOURCE #-} DsExpr ( dsExpr )
import MatchLit
import DsUtils
import DsMonad
import qualified Language.Haskell.TH as TH
......
......@@ -53,10 +53,8 @@ import Type
import UniqSupply
import Name
import NameEnv
import OccName
import DynFlags
import ErrUtils
import MonadUtils
import FastString
import Data.IORef
......
......@@ -23,7 +23,6 @@ import HsSyn
import DsBinds
import DataCon
import TcType
import Type
import CoreSyn
import MkCore
import DsMonad
......
......@@ -27,10 +27,8 @@ import TyCon
import DataCon
import TcHsSyn ( shortCutLit )
import TcType
import Type
import PrelNames
import TysWiredIn
import Unique
import Literal
import SrcLoc
import Ratio
......
......@@ -30,7 +30,6 @@ import PrimOp
import Constants
import FastString
import SMRep
import FiniteMap
import Outputable
import Control.Monad ( foldM )
......@@ -41,18 +40,9 @@ import Data.Array.Unboxed ( listArray )
import Data.Array.Base ( UArray(..) )
import Data.Array.ST ( castSTUArray )
import Foreign
import Data.Bits
import Data.Int ( Int64 )
import Data.Char ( ord )
import GHC.Base ( ByteArray#, MutableByteArray#, RealWorld )
import GHC.Ptr ( Ptr(..) )
#if __GLASGOW_HASKELL__ >= 611
import GHC.IO ( IO(..) )
#else
import GHC.IOBase ( IO(..) )
#endif
-- -----------------------------------------------------------------------------
-- Unlinked BCOs
......
......@@ -50,12 +50,10 @@ import ListSetOps
import DynFlags
import BasicTypes
import Outputable
import PackageConfig
import Panic
import Util
import StaticFlags
import ErrUtils
import DriverPhases
import SrcLoc
import qualified Maybes
import UniqSet
......
......@@ -14,7 +14,6 @@ import HsTypes (PostTcType)
import Type ( Type )
import Outputable
import FastString
import Ratio ( Rational )
\end{code}
......
......@@ -22,9 +22,7 @@ import Annotations
import IfaceSyn
import Module
import Name
import OccName
import VarEnv
import InstEnv
import Class
import DynFlags
import UniqFM
......
......@@ -20,7 +20,6 @@ import Var
import VarSet
import BasicTypes
import Name
import OccName
import MkId
import Class
import TyCon
......@@ -30,8 +29,6 @@ import Coercion
import TcRnMonad
import Util ( count )
import Outputable
import Data.List
\end{code}
......
......@@ -26,7 +26,6 @@ import TyCon
import DataCon
import Var
import Name
import OccName
import PrelNames
import Module
import LazyUniqFM
......
......@@ -28,7 +28,6 @@ import HscTypes
import BasicTypes hiding (SuccessFlag(..))
import TcRnMonad
import Type
import PrelNames
import PrelInfo
......@@ -39,9 +38,7 @@ import InstEnv
import FamInstEnv
import Name
import NameEnv
import MkId
import Module
import OccName
import Maybes
import ErrUtils
import Finder
......@@ -55,8 +52,6 @@ import FastString
import Fingerprint
import Control.Monad
import Data.List
import Data.Maybe
\end{code}
......
......@@ -51,7 +51,6 @@ Basic idea:
#include "HsVersions.h"
import IfaceSyn
import IfaceType
import LoadIface
import Id
import IdInfo
......@@ -77,7 +76,6 @@ import Name
import RdrName
import NameEnv
import NameSet
import OccName
import Module
import BinIface
import ErrUtils
......@@ -95,7 +93,6 @@ import ListSetOps
import Binary
import Fingerprint
import Bag
import Panic
import Control.Monad
import Data.List
......
......@@ -42,7 +42,6 @@ import qualified Var
import VarEnv
import Name
import NameEnv
import OccName
import Module
import LazyUniqFM
import UniqSupply
......@@ -57,7 +56,6 @@ import BasicTypes (Arity)
import Control.Monad
import Data.List
import Data.Maybe
\end{code}
This module takes
......
......@@ -33,7 +33,6 @@ import Outputable
import Module
import Maybes ( firstJust )
import Distribution.Text
import Directory ( doesFileExist )
import Monad ( when )
import IO
......
......@@ -40,10 +40,8 @@ import Maybes ( expectJust )
import Distribution.Package hiding (PackageId)
import Data.IORef ( IORef, writeIORef, readIORef, modifyIORef )
import Data.List
import System.Directory
import System.FilePath
import System.IO
import Control.Monad
import System.Time ( ClockTime )
......
......@@ -245,7 +245,6 @@ import qualified Linker
import Linker ( HValue )
import ByteCodeInstr
import BreakArray
import NameSet
import InteractiveEval
import TcRnDriver
#endif
......
......@@ -117,8 +117,6 @@ import RdrName
import Name
import NameEnv
import NameSet
import OccName ( OccName, OccEnv, lookupOccEnv, mkOccEnv, emptyOccEnv,
extendOccEnv )
import Module
import InstEnv ( InstEnv, Instance )
import FamInstEnv ( FamInstEnv, FamInst )
......@@ -139,7 +137,7 @@ import Packages hiding ( Version(..) )
import DynFlags ( DynFlags(..), isOneShot, HscTarget (..), dopt,
DynFlag(..) )
import DriverPhases ( HscSource(..), isHsBoot, hscSourceString, Phase )
import BasicTypes ( IPName, Fixity, defaultFixity, WarningTxt(..) )
import BasicTypes ( IPName, defaultFixity, WarningTxt(..) )
import OptimizationFuel ( OptFuelState )
import IfaceSyn
import FiniteMap ( FiniteMap )
......
......@@ -20,7 +20,6 @@ import qualified GHC
import GHC ( TyThing(..) )
import TyCon
import Type ( TyThing(..), tidyTopType, pprTypeApp )
import TcType
import Var
import Name
......
......@@ -55,7 +55,6 @@ import System.IO
import System.IO.Error as IO
import System.Directory
import Data.Char
import Data.Maybe
import Data.List
#ifndef mingw32_HOST_OS
......
......@@ -33,7 +33,6 @@ import Name
import NameSet
import IfaceEnv
import NameEnv
import OccName
import TcType
import DataCon
import TyCon
......@@ -46,7 +45,6 @@ import Outputable
import FastBool hiding ( fastOr )
import Data.List ( partition )
import Data.Maybe ( isJust )
import Data.IORef ( IORef, readIORef, writeIORef )
\end{code}
......
......@@ -29,7 +29,6 @@ where
import Outputable
import Unique
import Panic
import RegClass
import Data.List
......
......@@ -18,7 +18,6 @@ import UniqFM
import UniqSet
import UniqSupply
import Control.Monad
import Data.List
-- | Do register coalescing on this top level thing
......
......@@ -11,7 +11,6 @@ module RegAlloc.Graph.Main (
where
import qualified GraphColor as Color
import qualified GraphBase as Color
import RegAlloc.Liveness
import RegAlloc.Graph.Spill
import RegAlloc.Graph.SpillClean
......
......@@ -22,7 +22,6 @@ import UniqSupply
import Outputable
import Data.List
import Data.Maybe
-- | Spill all these virtual regs to memory
......
......@@ -42,7 +42,6 @@ import State
import Outputable
import Util
import Data.Maybe
import Data.List ( find, nub )