Commit ca71d551 authored by James Foster's avatar James Foster Committed by Marge Bot

Remove unused imports of the form 'import foo ()' (Fixes #17065)

These kinds of imports are necessary in some cases such as
importing instances of typeclasses or intentionally creating
dependencies in the build system, but '-Wunused-imports' can't
detect when they are no longer needed. This commit removes the
unused ones currently in the code base (not including test files
or submodules), with the hope that doing so may increase
parallelism in the build system by removing unnecessary
dependencies.
parent 6329c70a
...@@ -19,7 +19,6 @@ import Module ...@@ -19,7 +19,6 @@ import Module
import GHC.Platform import GHC.Platform
import Digraph import Digraph
import CLabel import CLabel
import PprCmmDecl ()
import Cmm import Cmm
import CmmUtils import CmmUtils
import DynFlags import DynFlags
...@@ -30,7 +29,6 @@ import UniqSupply ...@@ -30,7 +29,6 @@ import UniqSupply
import CostCentre import CostCentre
import StgCmmHeap import StgCmmHeap
import PprCmm()
import Control.Monad import Control.Monad
import Data.Map (Map) import Data.Map (Map)
import qualified Data.Map as Map import qualified Data.Map as Map
......
...@@ -10,7 +10,7 @@ import GhcPrelude ...@@ -10,7 +10,7 @@ import GhcPrelude
import CmmExpr import CmmExpr
import SMRep import SMRep
import Cmm (Convention(..)) import Cmm (Convention(..))
import PprCmm () import PprCmm () -- For Outputable instances
import DynFlags import DynFlags
import GHC.Platform import GHC.Platform
......
...@@ -13,7 +13,6 @@ import Cmm ...@@ -13,7 +13,6 @@ import Cmm
import CmmUtils import CmmUtils
import CmmSwitch (eqSwitchTargetWith) import CmmSwitch (eqSwitchTargetWith)
import CmmContFlowOpt import CmmContFlowOpt
-- import PprCmm ()
import Hoopl.Block import Hoopl.Block
import Hoopl.Graph import Hoopl.Graph
......
...@@ -21,7 +21,7 @@ import Cmm ...@@ -21,7 +21,7 @@ import Cmm
import CmmUtils import CmmUtils
import CmmLive import CmmLive
import CmmSwitch (switchTargetsToList) import CmmSwitch (switchTargetsToList)
import PprCmm () import PprCmm () -- For Outputable instances
import Outputable import Outputable
import DynFlags import DynFlags
......
...@@ -17,7 +17,7 @@ import GhcPrelude ...@@ -17,7 +17,7 @@ import GhcPrelude
import DynFlags import DynFlags
import BlockId import BlockId
import Cmm import Cmm
import PprCmmExpr () import PprCmmExpr () -- For Outputable instances
import Hoopl.Block import Hoopl.Block
import Hoopl.Collections import Hoopl.Collections
import Hoopl.Dataflow import Hoopl.Dataflow
......
...@@ -14,7 +14,7 @@ import DynFlags ...@@ -14,7 +14,7 @@ import DynFlags
import BlockId import BlockId
import CLabel import CLabel
import Cmm import Cmm
import PprCmm () import PprCmm () -- For Outputable instances
import CmmUtils import CmmUtils
import CmmInfo import CmmInfo
import CmmLive import CmmLive
......
...@@ -19,7 +19,6 @@ import GHC.Platform (isARM, platformArch) ...@@ -19,7 +19,6 @@ import GHC.Platform (isARM, platformArch)
import DynFlags import DynFlags
import Unique import Unique
import UniqFM import UniqFM
import PprCmm ()
import qualified Data.IntSet as IntSet import qualified Data.IntSet as IntSet
import Data.List (partition) import Data.List (partition)
......
...@@ -32,7 +32,6 @@ import CoreSyn ...@@ -32,7 +32,6 @@ import CoreSyn
import FastString ( nilFS, mkFastString ) import FastString ( nilFS, mkFastString )
import Module import Module
import Outputable import Outputable
import PprCore ()
import PprCmmExpr ( pprExpr ) import PprCmmExpr ( pprExpr )
import SrcLoc import SrcLoc
import Util ( seqList ) import Util ( seqList )
......
...@@ -32,7 +32,7 @@ import BlockId ...@@ -32,7 +32,7 @@ import BlockId
import CLabel import CLabel
import ForeignCall import ForeignCall
import Cmm hiding (pprBBlock) import Cmm hiding (pprBBlock)
import PprCmm () import PprCmm () -- For Outputable instances
import Hoopl.Block import Hoopl.Block
import Hoopl.Collections import Hoopl.Collections
import Hoopl.Graph import Hoopl.Graph
......
...@@ -41,7 +41,6 @@ where ...@@ -41,7 +41,6 @@ where
import GhcPrelude hiding (succ) import GhcPrelude hiding (succ)
import BlockId ()
import CLabel import CLabel
import Cmm import Cmm
import CmmUtils import CmmUtils
...@@ -52,7 +51,6 @@ import Outputable ...@@ -52,7 +51,6 @@ import Outputable
import PprCmmDecl import PprCmmDecl
import PprCmmExpr import PprCmmExpr
import Util import Util
import PprCore ()
import BasicTypes import BasicTypes
import Hoopl.Block import Hoopl.Block
......
...@@ -71,7 +71,7 @@ import GhcPrelude ...@@ -71,7 +71,7 @@ import GhcPrelude
import StgSyn import StgSyn
import SMRep import SMRep
import Cmm import Cmm
import PprCmmExpr() import PprCmmExpr() -- For Outputable instances
import CostCentre import CostCentre
import BlockId import BlockId
......
...@@ -61,7 +61,6 @@ import UniqSupply ...@@ -61,7 +61,6 @@ import UniqSupply
import Maybes import Maybes
import Util import Util
import Outputable import Outputable
import PprCore () -- Instances
import Data.List import Data.List
......
...@@ -46,7 +46,6 @@ import GhcPrelude ...@@ -46,7 +46,6 @@ import GhcPrelude
import DynFlags import DynFlags
import CoreSyn import CoreSyn
import PprCore () -- Instances
import OccurAnal ( occurAnalyseExpr_NoBinderSwap ) import OccurAnal ( occurAnalyseExpr_NoBinderSwap )
import CoreOpt import CoreOpt
import CoreArity ( manifestArity ) import CoreArity ( manifestArity )
......
...@@ -28,7 +28,6 @@ import {-# SOURCE #-} HsPat ( LPat ) ...@@ -28,7 +28,6 @@ import {-# SOURCE #-} HsPat ( LPat )
import HsExtension import HsExtension
import HsTypes import HsTypes
import PprCore ()
import CoreSyn import CoreSyn
import TcEvidence import TcEvidence
import Type import Type
......
...@@ -50,7 +50,7 @@ import HsTypes ...@@ -50,7 +50,7 @@ import HsTypes
import BasicTypes ( Fixity, WarningTxt ) import BasicTypes ( Fixity, WarningTxt )
import HsUtils import HsUtils
import HsDoc import HsDoc
import HsInstances () import HsInstances () -- For Data instances
-- others: -- others:
import Outputable import Outputable
......
...@@ -77,7 +77,6 @@ import GhcPrelude ...@@ -77,7 +77,6 @@ import GhcPrelude
import {-# SOURCE #-} HsExpr ( HsSplice, pprSplice ) import {-# SOURCE #-} HsExpr ( HsSplice, pprSplice )
import HsExtension import HsExtension
import HsLit () -- for instances
import Id ( Id ) import Id ( Id )
import Name( Name ) import Name( Name )
......
...@@ -11,7 +11,6 @@ module FlagChecker ( ...@@ -11,7 +11,6 @@ module FlagChecker (
import GhcPrelude import GhcPrelude
import Binary import Binary
import BinIface ()
import DynFlags import DynFlags
import HscTypes import HscTypes
import Module import Module
......
...@@ -46,7 +46,6 @@ import GhcPrelude ...@@ -46,7 +46,6 @@ import GhcPrelude
import IfaceType import IfaceType
import BinFingerprint import BinFingerprint
import CoreSyn( IsOrphan, isOrphan ) import CoreSyn( IsOrphan, isOrphan )
import PprCore() -- Printing DFunArgs
import DynFlags( gopt, GeneralFlag (Opt_PrintAxiomIncomps) ) import DynFlags( gopt, GeneralFlag (Opt_PrintAxiomIncomps) )
import Demand import Demand
import Class import Class
......
...@@ -35,7 +35,6 @@ import DynFlags ...@@ -35,7 +35,6 @@ import DynFlags
import ErrUtils import ErrUtils
import Util import Util
import Outputable import Outputable
import Pretty ()
import Maybes import Maybes
import Bag ( emptyBag, listToBag, unitBag ) import Bag ( emptyBag, listToBag, unitBag )
import MonadUtils import MonadUtils
......
...@@ -37,7 +37,6 @@ import Maybes ...@@ -37,7 +37,6 @@ import Maybes
--import Debug --import Debug
--import Debug.Trace --import Debug.Trace
import ListSetOps (removeDups) import ListSetOps (removeDups)
import PprCmm ()
import OrdList import OrdList
import Data.List import Data.List
......
...@@ -56,7 +56,7 @@ import Outputable ...@@ -56,7 +56,7 @@ import Outputable
--import Debug --import Debug
--import OrdList --import OrdList
--import Debug.Trace --import Debug.Trace
import PprCmm () import PprCmm () -- For Outputable instances
import qualified DynFlags as D import qualified DynFlags as D
import Data.List import Data.List
......
...@@ -27,7 +27,7 @@ import Hoopl.Label ...@@ -27,7 +27,7 @@ import Hoopl.Label
import BlockId import BlockId
import CLabel import CLabel
import PprCmmExpr () import PprCmmExpr () -- For Outputable instances
import Unique ( pprUniqueAlways, getUnique ) import Unique ( pprUniqueAlways, getUnique )
import GHC.Platform import GHC.Platform
......
...@@ -28,7 +28,6 @@ import RegClass ...@@ -28,7 +28,6 @@ import RegClass
import Reg import Reg
import TargetReg import TargetReg
import PprCmm()
import Outputable import Outputable
import UniqFM import UniqFM
import UniqSet import UniqSet
......
...@@ -45,7 +45,6 @@ import CFG ...@@ -45,7 +45,6 @@ import CFG
import Hoopl.Collections import Hoopl.Collections
import Hoopl.Label import Hoopl.Label
import Cmm hiding (RegSet, emptyRegSet) import Cmm hiding (RegSet, emptyRegSet)
import PprCmm()
import Digraph import Digraph
import DynFlags import DynFlags
......
...@@ -31,7 +31,6 @@ import SPARC.CodeGen.CondCode ...@@ -31,7 +31,6 @@ import SPARC.CodeGen.CondCode
import SPARC.CodeGen.Gen64 import SPARC.CodeGen.Gen64
import SPARC.CodeGen.Gen32 import SPARC.CodeGen.Gen32
import SPARC.CodeGen.Base import SPARC.CodeGen.Base
import SPARC.Ppr ()
import SPARC.Instr import SPARC.Instr
import SPARC.Imm import SPARC.Imm
import SPARC.AddrMode import SPARC.AddrMode
......
...@@ -25,7 +25,7 @@ import Reg ...@@ -25,7 +25,7 @@ import Reg
import CodeGen.Platform import CodeGen.Platform
import DynFlags import DynFlags
import Cmm import Cmm
import PprCmmExpr () import PprCmmExpr () -- For Outputable instances
import GHC.Platform import GHC.Platform
import Outputable import Outputable
......
...@@ -11,7 +11,6 @@ import SPARC.Instr ...@@ -11,7 +11,6 @@ import SPARC.Instr
import SPARC.Imm import SPARC.Imm
import SPARC.AddrMode import SPARC.AddrMode
import SPARC.Regs import SPARC.Regs
import SPARC.Ppr ()
import Instruction import Instruction
import Reg import Reg
import Format import Format
......
...@@ -16,7 +16,7 @@ import SPARC.Regs ...@@ -16,7 +16,7 @@ import SPARC.Regs
import SPARC.AddrMode import SPARC.AddrMode
import SPARC.Imm import SPARC.Imm
import SPARC.Instr import SPARC.Instr
import SPARC.Ppr() -- import SPARC.Ppr()
import NCGMonad import NCGMonad
import Instruction import Instruction
import Format import Format
......
...@@ -9,7 +9,7 @@ where ...@@ -9,7 +9,7 @@ where
import GhcPrelude import GhcPrelude
import SPARC.Instr import SPARC.Instr
import SPARC.Ppr () import SPARC.Ppr () -- For Outputable instances
import Instruction import Instruction
import Cmm import Cmm
......
...@@ -39,7 +39,7 @@ import Format ...@@ -39,7 +39,7 @@ import Format
import PprBase import PprBase
import Cmm hiding (topInfoTable) import Cmm hiding (topInfoTable)
import PprCmm() import PprCmm() -- For Outputable instances
import BlockId import BlockId
import CLabel import CLabel
import Hoopl.Label import Hoopl.Label
......
...@@ -38,9 +38,6 @@ import X86.Cond ...@@ -38,9 +38,6 @@ import X86.Cond
import X86.Regs import X86.Regs
import X86.RegInfo import X86.RegInfo
--TODO: Remove - Just for development/debugging
import X86.Ppr()
import CodeGen.Platform import CodeGen.Platform
import CPrim import CPrim
import Debug ( DebugBlock(..), UnwindPoint(..), UnwindTable import Debug ( DebugBlock(..), UnwindPoint(..), UnwindTable
...@@ -60,7 +57,6 @@ import GHC.Platform ...@@ -60,7 +57,6 @@ import GHC.Platform
import BasicTypes import BasicTypes
import BlockId import BlockId
import Module ( primUnitId ) import Module ( primUnitId )
import PprCmm ()
import CmmUtils import CmmUtils
import CmmSwitch import CmmSwitch
import Cmm import Cmm
......
...@@ -48,7 +48,6 @@ import TcMType as TcM ...@@ -48,7 +48,6 @@ import TcMType as TcM
import TcRnMonad as TcM import TcRnMonad as TcM
import TcSMonad as TcS import TcSMonad as TcS
import TcType import TcType
import TrieMap () -- DV: for now
import Type import Type
import TysWiredIn ( liftedRepTy ) import TysWiredIn ( liftedRepTy )
import Unify ( tcMatchTyKi ) import Unify ( tcMatchTyKi )
......
...@@ -23,7 +23,6 @@ ...@@ -23,7 +23,6 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module GHC.Err( absentErr, error, errorWithoutStackTrace, undefined ) where module GHC.Err( absentErr, error, errorWithoutStackTrace, undefined ) where
import GHC.CString ()
import GHC.Types (Char, RuntimeRep) import GHC.Types (Char, RuntimeRep)
import GHC.Stack.Types import GHC.Stack.Types
import GHC.Prim import GHC.Prim
......
...@@ -39,7 +39,6 @@ module GHC.Magic ( inline, noinline, lazy, oneShot, runRW# ) where ...@@ -39,7 +39,6 @@ module GHC.Magic ( inline, noinline, lazy, oneShot, runRW# ) where
import GHC.Prim (realWorld#) import GHC.Prim (realWorld#)
#endif #endif
import GHC.Prim (State#, RealWorld) import GHC.Prim (State#, RealWorld)
import GHC.CString ()
import GHC.Types (RuntimeRep, TYPE) import GHC.Types (RuntimeRep, TYPE)
-- | The call @inline f@ arranges that @f@ is inlined, regardless of -- | The call @inline f@ arranges that @f@ is inlined, regardless of
......
...@@ -25,7 +25,7 @@ module GHCi.Message ...@@ -25,7 +25,7 @@ module GHCi.Message
import Prelude -- See note [Why do we import Prelude here?] import Prelude -- See note [Why do we import Prelude here?]
import GHCi.RemoteTypes import GHCi.RemoteTypes
import GHCi.FFI import GHCi.FFI
import GHCi.TH.Binary () import GHCi.TH.Binary () -- For Binary instances
import GHCi.BreakArray import GHCi.BreakArray
import GHC.LanguageExtensions import GHC.LanguageExtensions
......
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