Remove unused imports of the form 'import foo ()' (Fixes #17065)
authorJames Foster <ratherforky@gmail.com>
Thu, 15 Aug 2019 01:00:17 +0000 (01:00 +0000)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Thu, 15 Aug 2019 16:01:43 +0000 (12:01 -0400)
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.

35 files changed:
compiler/cmm/CmmBuildInfoTables.hs
compiler/cmm/CmmCallConv.hs
compiler/cmm/CmmCommonBlockElim.hs
compiler/cmm/CmmLint.hs
compiler/cmm/CmmLive.hs
compiler/cmm/CmmProcPoint.hs
compiler/cmm/CmmSink.hs
compiler/cmm/Debug.hs
compiler/cmm/PprC.hs
compiler/cmm/PprCmm.hs
compiler/codeGen/StgCmmClosure.hs
compiler/coreSyn/CoreSubst.hs
compiler/coreSyn/CoreUnfold.hs
compiler/hsSyn/HsBinds.hs
compiler/hsSyn/HsSyn.hs
compiler/hsSyn/HsTypes.hs
compiler/iface/FlagChecker.hs
compiler/iface/IfaceSyn.hs
compiler/main/HeaderInfo.hs
compiler/nativeGen/BlockLayout.hs
compiler/nativeGen/CFG.hs
compiler/nativeGen/PPC/Ppr.hs
compiler/nativeGen/RegAlloc/Graph/Stats.hs
compiler/nativeGen/RegAlloc/Liveness.hs
compiler/nativeGen/SPARC/CodeGen.hs
compiler/nativeGen/SPARC/CodeGen/Base.hs
compiler/nativeGen/SPARC/CodeGen/Expand.hs
compiler/nativeGen/SPARC/CodeGen/Gen64.hs
compiler/nativeGen/SPARC/CodeGen/Sanity.hs
compiler/nativeGen/SPARC/Ppr.hs
compiler/nativeGen/X86/CodeGen.hs
compiler/typecheck/TcSimplify.hs
libraries/base/GHC/Err.hs
libraries/ghc-prim/GHC/Magic.hs
libraries/ghci/GHCi/Message.hs

index 90d15ae..9c05a8f 100644 (file)
@@ -19,7 +19,6 @@ import Module
 import GHC.Platform
 import Digraph
 import CLabel
-import PprCmmDecl ()
 import Cmm
 import CmmUtils
 import DynFlags
@@ -30,7 +29,6 @@ import UniqSupply
 import CostCentre
 import StgCmmHeap
 
-import PprCmm()
 import Control.Monad
 import Data.Map (Map)
 import qualified Data.Map as Map
index 4e6a9d2..df1eaad 100644 (file)
@@ -10,7 +10,7 @@ import GhcPrelude
 import CmmExpr
 import SMRep
 import Cmm (Convention(..))
-import PprCmm ()
+import PprCmm () -- For Outputable instances
 
 import DynFlags
 import GHC.Platform
index b43d689..cbf7d83 100644 (file)
@@ -13,7 +13,6 @@ import Cmm
 import CmmUtils
 import CmmSwitch (eqSwitchTargetWith)
 import CmmContFlowOpt
--- import PprCmm ()
 
 import Hoopl.Block
 import Hoopl.Graph
index d5c3f84..3ad65bd 100644 (file)
@@ -21,7 +21,7 @@ import Cmm
 import CmmUtils
 import CmmLive
 import CmmSwitch (switchTargetsToList)
-import PprCmm ()
+import PprCmm () -- For Outputable instances
 import Outputable
 import DynFlags
 
index f340c32..ca474ef 100644 (file)
@@ -17,7 +17,7 @@ import GhcPrelude
 import DynFlags
 import BlockId
 import Cmm
-import PprCmmExpr ()
+import PprCmmExpr () -- For Outputable instances
 import Hoopl.Block
 import Hoopl.Collections
 import Hoopl.Dataflow
index 528337c..746a175 100644 (file)
@@ -14,7 +14,7 @@ import DynFlags
 import BlockId
 import CLabel
 import Cmm
-import PprCmm ()
+import PprCmm () -- For Outputable instances
 import CmmUtils
 import CmmInfo
 import CmmLive
index 409cd0f..8a6b120 100644 (file)
@@ -19,7 +19,6 @@ import GHC.Platform (isARM, platformArch)
 import DynFlags
 import Unique
 import UniqFM
-import PprCmm ()
 
 import qualified Data.IntSet as IntSet
 import Data.List (partition)
index da37495..4aec63f 100644 (file)
@@ -32,7 +32,6 @@ import CoreSyn
 import FastString      ( nilFS, mkFastString )
 import Module
 import Outputable
-import PprCore         ()
 import PprCmmExpr      ( pprExpr )
 import SrcLoc
 import Util            ( seqList )
index 7227edd..d412969 100644 (file)
@@ -32,7 +32,7 @@ import BlockId
 import CLabel
 import ForeignCall
 import Cmm hiding (pprBBlock)
-import PprCmm ()
+import PprCmm () -- For Outputable instances
 import Hoopl.Block
 import Hoopl.Collections
 import Hoopl.Graph
index 90f26e4..397a666 100644 (file)
@@ -41,7 +41,6 @@ where
 
 import GhcPrelude hiding (succ)
 
-import BlockId ()
 import CLabel
 import Cmm
 import CmmUtils
@@ -52,7 +51,6 @@ import Outputable
 import PprCmmDecl
 import PprCmmExpr
 import Util
-import PprCore ()
 
 import BasicTypes
 import Hoopl.Block
index 74de2d8..437219b 100644 (file)
@@ -71,7 +71,7 @@ import GhcPrelude
 import StgSyn
 import SMRep
 import Cmm
-import PprCmmExpr()
+import PprCmmExpr() -- For Outputable instances
 
 import CostCentre
 import BlockId
index 695c7a2..2e3a008 100644 (file)
@@ -61,7 +61,6 @@ import UniqSupply
 import Maybes
 import Util
 import Outputable
-import PprCore          ()              -- Instances
 import Data.List
 
 
index 4570d7a..8a51e58 100644 (file)
@@ -46,7 +46,6 @@ import GhcPrelude
 
 import DynFlags
 import CoreSyn
-import PprCore          ()      -- Instances
 import OccurAnal        ( occurAnalyseExpr_NoBinderSwap )
 import CoreOpt
 import CoreArity       ( manifestArity )
index c5fadc0..4be761e 100644 (file)
@@ -28,7 +28,6 @@ import {-# SOURCE #-} HsPat  ( LPat )
 
 import HsExtension
 import HsTypes
-import PprCore ()
 import CoreSyn
 import TcEvidence
 import Type
index e04abbf..622f1b9 100644 (file)
@@ -50,7 +50,7 @@ import HsTypes
 import BasicTypes       ( Fixity, WarningTxt )
 import HsUtils
 import HsDoc
-import HsInstances ()
+import HsInstances () -- For Data instances
 
 -- others:
 import Outputable
index 08b8ead..ad9c186 100644 (file)
@@ -77,7 +77,6 @@ import GhcPrelude
 import {-# SOURCE #-} HsExpr ( HsSplice, pprSplice )
 
 import HsExtension
-import HsLit () -- for instances
 
 import Id ( Id )
 import Name( Name )
index a9ab4c9..34b55e9 100644 (file)
@@ -11,7 +11,6 @@ module FlagChecker (
 import GhcPrelude
 
 import Binary
-import BinIface ()
 import DynFlags
 import HscTypes
 import Module
index 3da0c63..688998f 100644 (file)
@@ -46,7 +46,6 @@ import GhcPrelude
 import IfaceType
 import BinFingerprint
 import CoreSyn( IsOrphan, isOrphan )
-import PprCore()            -- Printing DFunArgs
 import DynFlags( gopt, GeneralFlag (Opt_PrintAxiomIncomps) )
 import Demand
 import Class
index c755792..0d7e6fd 100644 (file)
@@ -35,7 +35,6 @@ import DynFlags
 import ErrUtils
 import Util
 import Outputable
-import Pretty           ()
 import Maybes
 import Bag              ( emptyBag, listToBag, unitBag )
 import MonadUtils
index 8904b41..3755ed5 100644 (file)
@@ -37,7 +37,6 @@ import Maybes
 --import Debug
 --import Debug.Trace
 import ListSetOps (removeDups)
-import PprCmm ()
 
 import OrdList
 import Data.List
index af0c6da..44ddecd 100644 (file)
@@ -56,7 +56,7 @@ import Outputable
 --import Debug
 --import OrdList
 --import Debug.Trace
-import PprCmm ()
+import PprCmm () -- For Outputable instances
 import qualified DynFlags as D
 
 import Data.List
index 4254f23..0c3aacc 100644 (file)
@@ -27,7 +27,7 @@ import Hoopl.Label
 
 import BlockId
 import CLabel
-import PprCmmExpr ()
+import PprCmmExpr () -- For Outputable instances
 
 import Unique                ( pprUniqueAlways, getUnique )
 import GHC.Platform
index 487e3ee..f765224 100644 (file)
@@ -28,7 +28,6 @@ import RegClass
 import Reg
 import TargetReg
 
-import PprCmm()
 import Outputable
 import UniqFM
 import UniqSet
index bbb7976..3f160ea 100644 (file)
@@ -45,7 +45,6 @@ import CFG
 import Hoopl.Collections
 import Hoopl.Label
 import Cmm hiding (RegSet, emptyRegSet)
-import PprCmm()
 
 import Digraph
 import DynFlags
index 056d0c6..bb8bbe1 100644 (file)
@@ -31,7 +31,6 @@ import SPARC.CodeGen.CondCode
 import SPARC.CodeGen.Gen64
 import SPARC.CodeGen.Gen32
 import SPARC.CodeGen.Base
-import SPARC.Ppr        ()
 import SPARC.Instr
 import SPARC.Imm
 import SPARC.AddrMode
index e64af0c..97c54a9 100644 (file)
@@ -25,7 +25,7 @@ import Reg
 import CodeGen.Platform
 import DynFlags
 import Cmm
-import PprCmmExpr ()
+import PprCmmExpr () -- For Outputable instances
 import GHC.Platform
 
 import Outputable
index 0b31874..a29c24d 100644 (file)
@@ -11,7 +11,6 @@ import SPARC.Instr
 import SPARC.Imm
 import SPARC.AddrMode
 import SPARC.Regs
-import SPARC.Ppr        ()
 import Instruction
 import Reg
 import Format
index 6fa7482..18df9e1 100644 (file)
@@ -16,7 +16,7 @@ import SPARC.Regs
 import SPARC.AddrMode
 import SPARC.Imm
 import SPARC.Instr
-import SPARC.Ppr()
+-- import SPARC.Ppr()
 import NCGMonad
 import Instruction
 import Format
index fcf5b65..7f9bfed 100644 (file)
@@ -9,7 +9,7 @@ where
 import GhcPrelude
 
 import SPARC.Instr
-import SPARC.Ppr        ()
+import SPARC.Ppr        () -- For Outputable instances
 import Instruction
 
 import Cmm
index fc67f77..2bec7ec 100644 (file)
@@ -39,7 +39,7 @@ import Format
 import PprBase
 
 import Cmm hiding (topInfoTable)
-import PprCmm()
+import PprCmm() -- For Outputable instances
 import BlockId
 import CLabel
 import Hoopl.Label
index 13662f6..4aeb4eb 100644 (file)
@@ -38,9 +38,6 @@ import X86.Cond
 import X86.Regs
 import X86.RegInfo
 
---TODO: Remove - Just for development/debugging
-import X86.Ppr()
-
 import CodeGen.Platform
 import CPrim
 import Debug            ( DebugBlock(..), UnwindPoint(..), UnwindTable
@@ -60,7 +57,6 @@ import GHC.Platform
 import BasicTypes
 import BlockId
 import Module           ( primUnitId )
-import PprCmm           ()
 import CmmUtils
 import CmmSwitch
 import Cmm
index d16be28..5a79240 100644 (file)
@@ -48,7 +48,6 @@ import TcMType   as TcM
 import TcRnMonad as TcM
 import TcSMonad  as TcS
 import TcType
-import TrieMap       () -- DV: for now
 import Type
 import TysWiredIn    ( liftedRepTy )
 import Unify         ( tcMatchTyKi )
index 26e3f20..17b5b8e 100644 (file)
@@ -23,7 +23,6 @@
 -----------------------------------------------------------------------------
 
 module GHC.Err( absentErr, error, errorWithoutStackTrace, undefined ) where
-import GHC.CString ()
 import GHC.Types (Char, RuntimeRep)
 import GHC.Stack.Types
 import GHC.Prim
index 2cc3212..403c3f0 100644 (file)
@@ -39,7 +39,6 @@ module GHC.Magic ( inline, noinline, lazy, oneShot, runRW# ) where
 import GHC.Prim (realWorld#)
 #endif
 import GHC.Prim (State#, RealWorld)
-import GHC.CString ()
 import GHC.Types (RuntimeRep, TYPE)
 
 -- | The call @inline f@ arranges that @f@ is inlined, regardless of
index d8c27b0..70c532f 100644 (file)
@@ -25,7 +25,7 @@ module GHCi.Message
 import Prelude -- See note [Why do we import Prelude here?]
 import GHCi.RemoteTypes
 import GHCi.FFI
-import GHCi.TH.Binary ()
+import GHCi.TH.Binary () -- For Binary instances
 import GHCi.BreakArray
 
 import GHC.LanguageExtensions