projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7bb3d1f
)
Remove unused imports
author
Ian Lynagh
<igloo@earth.li>
Tue, 7 Jul 2009 12:15:48 +0000
(12:15 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Tue, 7 Jul 2009 12:15:48 +0000
(12:15 +0000)
88 files changed:
compiler/basicTypes/MkId.lhs
patch
|
blob
|
history
compiler/cmm/CmmBuildInfoTables.hs
patch
|
blob
|
history
compiler/cmm/CmmCPS.hs
patch
|
blob
|
history
compiler/cmm/CmmCPSGen.hs
patch
|
blob
|
history
compiler/cmm/CmmCallConv.hs
patch
|
blob
|
history
compiler/cmm/CmmCvt.hs
patch
|
blob
|
history
compiler/cmm/CmmProcPointZ.hs
patch
|
blob
|
history
compiler/cmm/CmmSpillReload.hs
patch
|
blob
|
history
compiler/cmm/CmmStackLayout.hs
patch
|
blob
|
history
compiler/cmm/DFMonad.hs
patch
|
blob
|
history
compiler/cmm/PprCmmZ.hs
patch
|
blob
|
history
compiler/cmm/ZipDataflow.hs
patch
|
blob
|
history
compiler/codeGen/CgCon.lhs
patch
|
blob
|
history
compiler/codeGen/CgInfoTbls.hs
patch
|
blob
|
history
compiler/codeGen/CgLetNoEscape.lhs
patch
|
blob
|
history
compiler/codeGen/CgProf.hs
patch
|
blob
|
history
compiler/codeGen/CodeGen.lhs
patch
|
blob
|
history
compiler/codeGen/StgCmm.hs
patch
|
blob
|
history
compiler/codeGen/StgCmmBind.hs
patch
|
blob
|
history
compiler/codeGen/StgCmmClosure.hs
patch
|
blob
|
history
compiler/codeGen/StgCmmEnv.hs
patch
|
blob
|
history
compiler/codeGen/StgCmmHeap.hs
patch
|
blob
|
history
compiler/codeGen/StgCmmLayout.hs
patch
|
blob
|
history
compiler/codeGen/StgCmmProf.hs
patch
|
blob
|
history
compiler/codeGen/StgCmmUtils.hs
patch
|
blob
|
history
compiler/coreSyn/CoreArity.lhs
patch
|
blob
|
history
compiler/coreSyn/CoreTidy.lhs
patch
|
blob
|
history
compiler/coreSyn/MkCore.lhs
patch
|
blob
|
history
compiler/deSugar/Coverage.lhs
patch
|
blob
|
history
compiler/deSugar/DsBinds.lhs
patch
|
blob
|
history
compiler/deSugar/DsCCall.lhs
patch
|
blob
|
history
compiler/deSugar/DsExpr.lhs
patch
|
blob
|
history
compiler/deSugar/DsMeta.hs
patch
|
blob
|
history
compiler/deSugar/DsMonad.lhs
patch
|
blob
|
history
compiler/deSugar/MatchCon.lhs
patch
|
blob
|
history
compiler/deSugar/MatchLit.lhs
patch
|
blob
|
history
compiler/ghci/ByteCodeAsm.lhs
patch
|
blob
|
history
compiler/ghci/Linker.lhs
patch
|
blob
|
history
compiler/hsSyn/HsLit.lhs
patch
|
blob
|
history
compiler/iface/BinIface.hs
patch
|
blob
|
history
compiler/iface/BuildTyCl.lhs
patch
|
blob
|
history
compiler/iface/IfaceEnv.lhs
patch
|
blob
|
history
compiler/iface/LoadIface.lhs
patch
|
blob
|
history
compiler/iface/MkIface.lhs
patch
|
blob
|
history
compiler/iface/TcIface.lhs
patch
|
blob
|
history
compiler/main/CodeOutput.lhs
patch
|
blob
|
history
compiler/main/Finder.lhs
patch
|
blob
|
history
compiler/main/GHC.hs
patch
|
blob
|
history
compiler/main/HscTypes.lhs
patch
|
blob
|
history
compiler/main/PprTyThing.hs
patch
|
blob
|
history
compiler/main/SysTools.lhs
patch
|
blob
|
history
compiler/main/TidyPgm.lhs
patch
|
blob
|
history
compiler/nativeGen/Reg.hs
patch
|
blob
|
history
compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
patch
|
blob
|
history
compiler/nativeGen/RegAlloc/Graph/Main.hs
patch
|
blob
|
history
compiler/nativeGen/RegAlloc/Graph/Spill.hs
patch
|
blob
|
history
compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
patch
|
blob
|
history
compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
patch
|
blob
|
history
compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
patch
|
blob
|
history
compiler/nativeGen/SPARC/Instr.hs
patch
|
blob
|
history
compiler/nativeGen/X86/Instr.hs
patch
|
blob
|
history
compiler/parser/HaddockUtils.hs
patch
|
blob
|
history
compiler/rename/RnEnv.lhs
patch
|
blob
|
history
compiler/rename/RnExpr.lhs
patch
|
blob
|
history
compiler/rename/RnHsDoc.hs
patch
|
blob
|
history
compiler/rename/RnSource.lhs
patch
|
blob
|
history
compiler/simplCore/CoreMonad.lhs
patch
|
blob
|
history
compiler/simplCore/SAT.lhs
patch
|
blob
|
history
compiler/simplCore/SetLevels.lhs
patch
|
blob
|
history
compiler/simplStg/SRT.lhs
patch
|
blob
|
history
compiler/specialise/SpecConstr.lhs
patch
|
blob
|
history
compiler/stgSyn/StgLint.lhs
patch
|
blob
|
history
compiler/stranal/WorkWrap.lhs
patch
|
blob
|
history
compiler/stranal/WwLib.lhs
patch
|
blob
|
history
compiler/typecheck/TcBinds.lhs
patch
|
blob
|
history
compiler/typecheck/TcEnv.lhs
patch
|
blob
|
history
compiler/typecheck/TcHsSyn.lhs
patch
|
blob
|
history
compiler/typecheck/TcHsType.lhs
patch
|
blob
|
history
compiler/typecheck/TcPat.lhs
patch
|
blob
|
history
compiler/typecheck/TcRnMonad.lhs
patch
|
blob
|
history
compiler/typecheck/TcRnTypes.lhs
patch
|
blob
|
history
compiler/typecheck/TcSimplify.lhs
patch
|
blob
|
history
compiler/typecheck/TcTyFuns.lhs
patch
|
blob
|
history
compiler/types/FamInstEnv.lhs
patch
|
blob
|
history
compiler/types/Generics.lhs
patch
|
blob
|
history
compiler/utils/Serialized.hs
patch
|
blob
|
history
compiler/vectorise/VectMonad.hs
patch
|
blob
|
history
compiler/vectorise/Vectorise.hs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/MkId.lhs
b/compiler/basicTypes/MkId.lhs
index
a5bbacc
..
b1c90b3
100644
(file)
--- a/
compiler/basicTypes/MkId.lhs
+++ b/
compiler/basicTypes/MkId.lhs
@@
-50,7
+50,6
@@
import TysPrim
import TysWiredIn
import PrelRules
import Type
import TysWiredIn
import PrelRules
import Type
-import TypeRep
import Coercion
import TcType
import CoreUtils ( exprType, mkCoerce )
import Coercion
import TcType
import CoreUtils ( exprType, mkCoerce )
@@
-60,7
+59,6
@@
import TyCon
import Class
import VarSet
import Name
import Class
import VarSet
import Name
-import OccName
import PrimOp
import ForeignCall
import DataCon
import PrimOp
import ForeignCall
import DataCon
@@
-70,7
+68,6
@@
import IdInfo
import NewDemand
import CoreSyn
import Unique
import NewDemand
import CoreSyn
import Unique
-import Maybes
import PrelNames
import BasicTypes hiding ( SuccessFlag(..) )
import Util
import PrelNames
import BasicTypes hiding ( SuccessFlag(..) )
import Util
diff --git
a/compiler/cmm/CmmBuildInfoTables.hs
b/compiler/cmm/CmmBuildInfoTables.hs
index
bf5ef8e
..
d2126cd
100644
(file)
--- a/
compiler/cmm/CmmBuildInfoTables.hs
+++ b/
compiler/cmm/CmmBuildInfoTables.hs
@@
-18,7
+18,6
@@
import BlockId
import Bitmap
import CLabel
import Cmm hiding (blockId)
import Bitmap
import CLabel
import Cmm hiding (blockId)
-import CmmExpr
import CmmInfo
import CmmProcPointZ
import CmmStackLayout
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 Monad
import Name
import Outputable
-import Panic
import SMRep
import StgCmmClosure
import StgCmmForeign
import SMRep
import StgCmmClosure
import StgCmmForeign
diff --git
a/compiler/cmm/CmmCPS.hs
b/compiler/cmm/CmmCPS.hs
index
f6a677a
..
6a1dc40
100644
(file)
--- a/
compiler/cmm/CmmCPS.hs
+++ b/
compiler/cmm/CmmCPS.hs
@@
-32,8
+32,6
@@
import UniqSet
import Unique
import Monad
import Unique
import Monad
-import IO
-import Data.List
-----------------------------------------------------------------------------
-- |Top level driver for the CPS pass
-----------------------------------------------------------------------------
-- |Top level driver for the CPS pass
diff --git
a/compiler/cmm/CmmCPSGen.hs
b/compiler/cmm/CmmCPSGen.hs
index
b5f51a9
..
dc43a83
100644
(file)
--- a/
compiler/cmm/CmmCPSGen.hs
+++ b/
compiler/cmm/CmmCPSGen.hs
@@
-24,7
+24,6
@@
import Constants
import StaticFlags
import Unique
import Maybe
import StaticFlags
import Unique
import Maybe
-import List
import FastString
import Panic
import FastString
import Panic
diff --git
a/compiler/cmm/CmmCallConv.hs
b/compiler/cmm/CmmCallConv.hs
index
64af09d
..
a49fa65
100644
(file)
--- a/
compiler/cmm/CmmCallConv.hs
+++ b/
compiler/cmm/CmmCallConv.hs
@@
-15,7
+15,6
@@
import ZipCfgCmmRep (Convention(..))
import Constants
import StaticFlags (opt_Unregisterised)
import Outputable
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.
-- Calculate the 'GlobalReg' or stack locations for function call
-- parameters as used by the Cmm calling convention.
diff --git
a/compiler/cmm/CmmCvt.hs
b/compiler/cmm/CmmCvt.hs
index
da77063
..
016e725
100644
(file)
--- a/
compiler/cmm/CmmCvt.hs
+++ b/
compiler/cmm/CmmCvt.hs
@@
-6,7
+6,6
@@
where
import BlockId
import Cmm
import BlockId
import Cmm
-import CmmExpr
import MkZipCfgCmm hiding (CmmGraph)
import ZipCfgCmmRep -- imported for reverse conversion
import CmmZipUtil
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 FastString
import Monad
import Outputable
-import Panic
import UniqSupply
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)
cmmToZgraph :: GenCmm d h (ListGraph CmmStmt) -> UniqSM (GenCmm d h (CmmStackInfo, CmmGraph))
cmmOfZgraph :: GenCmm d h (CmmStackInfo, CmmGraph) -> GenCmm d h (ListGraph CmmStmt)
diff --git
a/compiler/cmm/CmmProcPointZ.hs
b/compiler/cmm/CmmProcPointZ.hs
index
b477f4c
..
1386267
100644
(file)
--- a/
compiler/cmm/CmmProcPointZ.hs
+++ b/
compiler/cmm/CmmProcPointZ.hs
@@
-11,7
+11,6
@@
import BlockId
import CLabel
import Cmm hiding (blockId)
import CmmContFlowOpt
import CLabel
import Cmm hiding (blockId)
import CmmContFlowOpt
-import CmmExpr
import CmmInfo
import CmmLiveZ
import CmmTx
import CmmInfo
import CmmLiveZ
import CmmTx
@@
-23,7
+22,6
@@
import MkZipCfg
import MkZipCfgCmm hiding (CmmBlock, CmmGraph, CmmTopZ)
import Monad
import Outputable
import MkZipCfgCmm hiding (CmmBlock, CmmGraph, CmmTopZ)
import Monad
import Outputable
-import Panic
import UniqSet
import UniqSupply
import ZipCfg
import UniqSet
import UniqSupply
import ZipCfg
diff --git
a/compiler/cmm/CmmSpillReload.hs
b/compiler/cmm/CmmSpillReload.hs
index
fb6931e
..
1f88b76
100644
(file)
--- a/
compiler/cmm/CmmSpillReload.hs
+++ b/
compiler/cmm/CmmSpillReload.hs
@@
-18,7
+18,6
@@
import CmmTx
import CmmLiveZ
import DFMonad
import MkZipCfg
import CmmLiveZ
import DFMonad
import MkZipCfg
-import OptimizationFuel
import PprCmm()
import ZipCfg
import ZipCfgCmmRep
import PprCmm()
import ZipCfg
import ZipCfgCmmRep
@@
-27,7
+26,6
@@
import ZipDataflow
import Monad
import Outputable hiding (empty)
import qualified Outputable as PP
import Monad
import Outputable hiding (empty)
import qualified Outputable as PP
-import Panic
import UniqSet
import Maybe
import UniqSet
import Maybe
diff --git
a/compiler/cmm/CmmStackLayout.hs
b/compiler/cmm/CmmStackLayout.hs
index
ab00100
..
be16f19
100644
(file)
--- a/
compiler/cmm/CmmStackLayout.hs
+++ b/
compiler/cmm/CmmStackLayout.hs
@@
-18,7
+18,6
@@
import MkZipCfg
import MkZipCfgCmm hiding (CmmBlock, CmmGraph)
import Monad
import Outputable
import MkZipCfgCmm hiding (CmmBlock, CmmGraph)
import Monad
import Outputable
-import Panic
import SMRep (ByteOff)
import ZipCfg
import ZipCfg as Z
import SMRep (ByteOff)
import ZipCfg
import ZipCfg as Z
diff --git
a/compiler/cmm/DFMonad.hs
b/compiler/cmm/DFMonad.hs
index
bc64ed6
..
4c254e6
100644
(file)
--- a/
compiler/cmm/DFMonad.hs
+++ b/
compiler/cmm/DFMonad.hs
@@
-16,7
+16,6
@@
import CmmTx
import PprCmm()
import OptimizationFuel
import PprCmm()
import OptimizationFuel
-import Control.Monad
import Maybes
import Outputable
import UniqSupply
import Maybes
import Outputable
import UniqSupply
diff --git
a/compiler/cmm/PprCmmZ.hs
b/compiler/cmm/PprCmmZ.hs
index
e9199ff
..
4d8cc51
100644
(file)
--- a/
compiler/cmm/PprCmmZ.hs
+++ b/
compiler/cmm/PprCmmZ.hs
@@
-6,7
+6,6
@@
where
import BlockId
import Cmm
import BlockId
import Cmm
-import CmmExpr
import PprCmm
import Outputable
import qualified ZipCfgCmmRep as G
import PprCmm
import Outputable
import qualified ZipCfgCmmRep as G
diff --git
a/compiler/cmm/ZipDataflow.hs
b/compiler/cmm/ZipDataflow.hs
index
17212bb
..
92fc375
100644
(file)
--- a/
compiler/cmm/ZipDataflow.hs
+++ b/
compiler/cmm/ZipDataflow.hs
@@
-29,10
+29,8
@@
import qualified ZipCfg as G
import Maybes
import Outputable
import Maybes
import Outputable
-import Panic
import Control.Monad
import Control.Monad
-import Maybe
{-
{-
diff --git
a/compiler/codeGen/CgCon.lhs
b/compiler/codeGen/CgCon.lhs
index
532965c
..
8259584
100644
(file)
--- a/
compiler/codeGen/CgCon.lhs
+++ b/
compiler/codeGen/CgCon.lhs
@@
-48,8
+48,6
@@
import ListSetOps
import Util
import FastString
import StaticFlags
import Util
import FastString
import StaticFlags
-
-import Control.Monad
\end{code}
\end{code}
diff --git
a/compiler/codeGen/CgInfoTbls.hs
b/compiler/codeGen/CgInfoTbls.hs
index
5b989f8
..
f704a69
100644
(file)
--- a/
compiler/codeGen/CgInfoTbls.hs
+++ b/
compiler/codeGen/CgInfoTbls.hs
@@
-39,7
+39,6
@@
import DataCon
import Unique
import StaticFlags
import Unique
import StaticFlags
-import Maybes
import Constants
import Util
import Outputable
import Constants
import Util
import Outputable
diff --git
a/compiler/codeGen/CgLetNoEscape.lhs
b/compiler/codeGen/CgLetNoEscape.lhs
index
14f5fb8
..
5870cec
100644
(file)
--- a/
compiler/codeGen/CgLetNoEscape.lhs
+++ b/
compiler/codeGen/CgLetNoEscape.lhs
@@
-30,7
+30,6
@@
import CLabel
import ClosureInfo
import CostCentre
import Id
import ClosureInfo
import CostCentre
import Id
-import Var
import SMRep
import BasicTypes
\end{code}
import SMRep
import BasicTypes
\end{code}
diff --git
a/compiler/codeGen/CgProf.hs
b/compiler/codeGen/CgProf.hs
index
24efe3a
..
7750c0f
100644
(file)
--- a/
compiler/codeGen/CgProf.hs
+++ b/
compiler/codeGen/CgProf.hs
@@
-50,7
+50,6
@@
import FastString
import Constants -- Lots of field offsets
import Outputable
import Constants -- Lots of field offsets
import Outputable
-import Data.Maybe
import Data.Char
import Control.Monad
import Data.Char
import Control.Monad
diff --git
a/compiler/codeGen/CodeGen.lhs
b/compiler/codeGen/CodeGen.lhs
index
a7ecf84
..
106fcc1
100644
(file)
--- a/
compiler/codeGen/CodeGen.lhs
+++ b/
compiler/codeGen/CodeGen.lhs
@@
-41,7
+41,6
@@
import HscTypes
import CostCentre
import Id
import Name
import CostCentre
import Id
import Name
-import OccName
import TyCon
import Module
import ErrUtils
import TyCon
import Module
import ErrUtils
diff --git
a/compiler/codeGen/StgCmm.hs
b/compiler/codeGen/StgCmm.hs
index
ee1983c
..
84edcce
100644
(file)
--- a/
compiler/codeGen/StgCmm.hs
+++ b/
compiler/codeGen/StgCmm.hs
@@
-41,7
+41,6
@@
import IdInfo
import Type
import DataCon
import Name
import Type
import DataCon
import Name
-import OccName
import TyCon
import Module
import ErrUtils
import TyCon
import Module
import ErrUtils
diff --git
a/compiler/codeGen/StgCmmBind.hs
b/compiler/codeGen/StgCmmBind.hs
index
dbeab2b
..
64d3ef1
100644
(file)
--- a/
compiler/codeGen/StgCmmBind.hs
+++ b/
compiler/codeGen/StgCmmBind.hs
@@
-47,8
+47,6
@@
import Outputable
import FastString
import Maybes
import FastString
import Maybes
-import Data.List
-
------------------------------------------------------------------------
-- Top-level bindings
------------------------------------------------------------------------
------------------------------------------------------------------------
-- Top-level bindings
------------------------------------------------------------------------
diff --git
a/compiler/codeGen/StgCmmClosure.hs
b/compiler/codeGen/StgCmmClosure.hs
index
d4789be
..
d66dda5
100644
(file)
--- a/
compiler/codeGen/StgCmmClosure.hs
+++ b/
compiler/codeGen/StgCmmClosure.hs
@@
-82,7
+82,6
@@
import Id
import IdInfo
import DataCon
import Name
import IdInfo
import DataCon
import Name
-import OccName
import Type
import TypeRep
import TcType
import Type
import TypeRep
import TcType
diff --git
a/compiler/codeGen/StgCmmEnv.hs
b/compiler/codeGen/StgCmmEnv.hs
index
67d82f0
..
a1ba606
100644
(file)
--- a/
compiler/codeGen/StgCmmEnv.hs
+++ b/
compiler/codeGen/StgCmmEnv.hs
@@
-41,7
+41,6
@@
import FastString
import PprCmm ( {- instance Outputable -} )
import Id
import VarEnv
import PprCmm ( {- instance Outputable -} )
import Id
import VarEnv
-import Maybes
import Monad
import Name
import StgSyn
import Monad
import Name
import StgSyn
diff --git
a/compiler/codeGen/StgCmmHeap.hs
b/compiler/codeGen/StgCmmHeap.hs
index
817a896
..
a02d2e2
100644
(file)
--- a/
compiler/codeGen/StgCmmHeap.hs
+++ b/
compiler/codeGen/StgCmmHeap.hs
@@
-42,7
+42,6
@@
import CostCentre
import Outputable
import FastString( LitString, mkFastString, sLit )
import Constants
import Outputable
import FastString( LitString, mkFastString, sLit )
import Constants
-import Data.List
-----------------------------------------------------------
-----------------------------------------------------------
diff --git
a/compiler/codeGen/StgCmmLayout.hs
b/compiler/codeGen/StgCmmLayout.hs
index
9e7263c
..
84d4ef0
100644
(file)
--- a/
compiler/codeGen/StgCmmLayout.hs
+++ b/
compiler/codeGen/StgCmmLayout.hs
@@
-59,7
+59,6
@@
import StaticFlags
import Bitmap
import Data.Bits
import Bitmap
import Data.Bits
-import Maybes
import Constants
import Util
import Data.List
import Constants
import Util
import Data.List
diff --git
a/compiler/codeGen/StgCmmProf.hs
b/compiler/codeGen/StgCmmProf.hs
index
bae8694
..
6fb20f8
100644
(file)
--- a/
compiler/codeGen/StgCmmProf.hs
+++ b/
compiler/codeGen/StgCmmProf.hs
@@
-52,7
+52,6
@@
import FastString
import Constants -- Lots of field offsets
import Outputable
import Constants -- Lots of field offsets
import Outputable
-import Data.Maybe
import Data.Char
import Control.Monad
import Data.Char
import Control.Monad
diff --git
a/compiler/codeGen/StgCmmUtils.hs
b/compiler/codeGen/StgCmmUtils.hs
index
eb437a9
..
357ca2c
100644
(file)
--- a/
compiler/codeGen/StgCmmUtils.hs
+++ b/
compiler/codeGen/StgCmmUtils.hs
@@
-50,7
+50,6
@@
import StgCmmMonad
import StgCmmClosure
import BlockId
import Cmm
import StgCmmClosure
import BlockId
import Cmm
-import CmmExpr
import MkZipCfgCmm
import CLabel
import CmmUtils
import MkZipCfgCmm
import CLabel
import CmmUtils
diff --git
a/compiler/coreSyn/CoreArity.lhs
b/compiler/coreSyn/CoreArity.lhs
index
d57c895
..
28732b3
100644
(file)
--- a/
compiler/coreSyn/CoreArity.lhs
+++ b/
compiler/coreSyn/CoreArity.lhs
@@
-34,9
+34,6
@@
import Outputable
import DynFlags
import StaticFlags ( opt_NoStateHack )
import FastString
import DynFlags
import StaticFlags ( opt_NoStateHack )
import FastString
-import Maybes
-
-import GHC.Exts -- For `xori`
\end{code}
%************************************************************************
\end{code}
%************************************************************************
diff --git
a/compiler/coreSyn/CoreTidy.lhs
b/compiler/coreSyn/CoreTidy.lhs
index
11e45b1
..
ff68b12
100644
(file)
--- a/
compiler/coreSyn/CoreTidy.lhs
+++ b/
compiler/coreSyn/CoreTidy.lhs
@@
-22,7
+22,6
@@
import Var
import VarEnv
import UniqFM
import Name hiding (tidyNameOcc)
import VarEnv
import UniqFM
import Name hiding (tidyNameOcc)
-import OccName
import SrcLoc
import Maybes
import SrcLoc
import Maybes
diff --git
a/compiler/coreSyn/MkCore.lhs
b/compiler/coreSyn/MkCore.lhs
index
c7e88be
..
f67c78a
100644
(file)
--- a/
compiler/coreSyn/MkCore.lhs
+++ b/
compiler/coreSyn/MkCore.lhs
@@
-50,7
+50,6
@@
import TysWiredIn
import PrelNames
import Type
import PrelNames
import Type
-import TypeRep
import TysPrim ( alphaTyVar )
import DataCon ( DataCon, dataConWorkId )
import TysPrim ( alphaTyVar )
import DataCon ( DataCon, dataConWorkId )
diff --git
a/compiler/deSugar/Coverage.lhs
b/compiler/deSugar/Coverage.lhs
index
4d85e90
..
8260cfb
100644
(file)
--- a/
compiler/deSugar/Coverage.lhs
+++ b/
compiler/deSugar/Coverage.lhs
@@
-27,7
+27,6
@@
import FiniteMap
import Data.Array
import Data.Maybe
import Data.Array
import Data.Maybe
-import System.IO (FilePath)
import System.Directory ( createDirectoryIfMissing )
import Trace.Hpc.Mix
import System.Directory ( createDirectoryIfMissing )
import Trace.Hpc.Mix
diff --git
a/compiler/deSugar/DsBinds.lhs
b/compiler/deSugar/DsBinds.lhs
index
e65da3c
..
0c8e37a
100644
(file)
--- a/
compiler/deSugar/DsBinds.lhs
+++ b/
compiler/deSugar/DsBinds.lhs
@@
-41,7
+41,6
@@
import Var ( Var, TyVar )
import VarSet
import Rules
import VarEnv
import VarSet
import Rules
import VarEnv
-import Type
import Outputable
import SrcLoc
import Maybes
import Outputable
import SrcLoc
import Maybes
diff --git
a/compiler/deSugar/DsCCall.lhs
b/compiler/deSugar/DsCCall.lhs
index
2034e37
..
27dff94
100644
(file)
--- a/
compiler/deSugar/DsCCall.lhs
+++ b/
compiler/deSugar/DsCCall.lhs
@@
-24,7
+24,6
@@
import DsMonad
import CoreUtils
import MkCore
import Var
import CoreUtils
import MkCore
import Var
-import Id
import MkId
import Maybes
import ForeignCall
import MkId
import Maybes
import ForeignCall
diff --git
a/compiler/deSugar/DsExpr.lhs
b/compiler/deSugar/DsExpr.lhs
index
ef28c55
..
2eca842
100644
(file)
--- a/
compiler/deSugar/DsExpr.lhs
+++ b/
compiler/deSugar/DsExpr.lhs
@@
-29,7
+29,6
@@
import Name
import NameEnv
#ifdef GHCI
import NameEnv
#ifdef GHCI
-import PrelNames
-- Template Haskell stuff iff bootstrapped
import DsMeta
#endif
-- Template Haskell stuff iff bootstrapped
import DsMeta
#endif
diff --git
a/compiler/deSugar/DsMeta.hs
b/compiler/deSugar/DsMeta.hs
index
87afbbe
..
ab40ab1
100644
(file)
--- a/
compiler/deSugar/DsMeta.hs
+++ b/
compiler/deSugar/DsMeta.hs
@@
-25,7
+25,6
@@
module DsMeta( dsBracket,
import {-# SOURCE #-} DsExpr ( dsExpr )
import MatchLit
import {-# SOURCE #-} DsExpr ( dsExpr )
import MatchLit
-import DsUtils
import DsMonad
import qualified Language.Haskell.TH as TH
import DsMonad
import qualified Language.Haskell.TH as TH
diff --git
a/compiler/deSugar/DsMonad.lhs
b/compiler/deSugar/DsMonad.lhs
index
83a5d21
..
58a154a
100644
(file)
--- a/
compiler/deSugar/DsMonad.lhs
+++ b/
compiler/deSugar/DsMonad.lhs
@@
-53,10
+53,8
@@
import Type
import UniqSupply
import Name
import NameEnv
import UniqSupply
import Name
import NameEnv
-import OccName
import DynFlags
import ErrUtils
import DynFlags
import ErrUtils
-import MonadUtils
import FastString
import Data.IORef
import FastString
import Data.IORef
diff --git
a/compiler/deSugar/MatchCon.lhs
b/compiler/deSugar/MatchCon.lhs
index
2912e29
..
9ec7f35
100644
(file)
--- a/
compiler/deSugar/MatchCon.lhs
+++ b/
compiler/deSugar/MatchCon.lhs
@@
-23,7
+23,6
@@
import HsSyn
import DsBinds
import DataCon
import TcType
import DsBinds
import DataCon
import TcType
-import Type
import CoreSyn
import MkCore
import DsMonad
import CoreSyn
import MkCore
import DsMonad
diff --git
a/compiler/deSugar/MatchLit.lhs
b/compiler/deSugar/MatchLit.lhs
index
2da52c7
..
9d3ff49
100644
(file)
--- a/
compiler/deSugar/MatchLit.lhs
+++ b/
compiler/deSugar/MatchLit.lhs
@@
-27,10
+27,8
@@
import TyCon
import DataCon
import TcHsSyn ( shortCutLit )
import TcType
import DataCon
import TcHsSyn ( shortCutLit )
import TcType
-import Type
import PrelNames
import TysWiredIn
import PrelNames
import TysWiredIn
-import Unique
import Literal
import SrcLoc
import Ratio
import Literal
import SrcLoc
import Ratio
diff --git
a/compiler/ghci/ByteCodeAsm.lhs
b/compiler/ghci/ByteCodeAsm.lhs
index
4d360e1
..
b1ef67e
100644
(file)
--- a/
compiler/ghci/ByteCodeAsm.lhs
+++ b/
compiler/ghci/ByteCodeAsm.lhs
@@
-30,7
+30,6
@@
import PrimOp
import Constants
import FastString
import SMRep
import Constants
import FastString
import SMRep
-import FiniteMap
import Outputable
import Control.Monad ( foldM )
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.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 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
-- -----------------------------------------------------------------------------
-- Unlinked BCOs
diff --git
a/compiler/ghci/Linker.lhs
b/compiler/ghci/Linker.lhs
index
8ca0bfc
..
21a2064
100644
(file)
--- a/
compiler/ghci/Linker.lhs
+++ b/
compiler/ghci/Linker.lhs
@@
-50,12
+50,10
@@
import ListSetOps
import DynFlags
import BasicTypes
import Outputable
import DynFlags
import BasicTypes
import Outputable
-import PackageConfig
import Panic
import Util
import StaticFlags
import ErrUtils
import Panic
import Util
import StaticFlags
import ErrUtils
-import DriverPhases
import SrcLoc
import qualified Maybes
import UniqSet
import SrcLoc
import qualified Maybes
import UniqSet
diff --git
a/compiler/hsSyn/HsLit.lhs
b/compiler/hsSyn/HsLit.lhs
index
bd12510
..
9a0e875
100644
(file)
--- a/
compiler/hsSyn/HsLit.lhs
+++ b/
compiler/hsSyn/HsLit.lhs
@@
-14,7
+14,6
@@
import HsTypes (PostTcType)
import Type ( Type )
import Outputable
import FastString
import Type ( Type )
import Outputable
import FastString
-import Ratio ( Rational )
\end{code}
\end{code}
diff --git
a/compiler/iface/BinIface.hs
b/compiler/iface/BinIface.hs
index
72a62a6
..
679494b
100644
(file)
--- a/
compiler/iface/BinIface.hs
+++ b/
compiler/iface/BinIface.hs
@@
-22,9
+22,7
@@
import Annotations
import IfaceSyn
import Module
import Name
import IfaceSyn
import Module
import Name
-import OccName
import VarEnv
import VarEnv
-import InstEnv
import Class
import DynFlags
import UniqFM
import Class
import DynFlags
import UniqFM
diff --git
a/compiler/iface/BuildTyCl.lhs
b/compiler/iface/BuildTyCl.lhs
index
9213afd
..
ba383d8
100644
(file)
--- a/
compiler/iface/BuildTyCl.lhs
+++ b/
compiler/iface/BuildTyCl.lhs
@@
-20,7
+20,6
@@
import Var
import VarSet
import BasicTypes
import Name
import VarSet
import BasicTypes
import Name
-import OccName
import MkId
import Class
import TyCon
import MkId
import Class
import TyCon
@@
-30,8
+29,6
@@
import Coercion
import TcRnMonad
import Util ( count )
import Outputable
import TcRnMonad
import Util ( count )
import Outputable
-
-import Data.List
\end{code}
\end{code}
diff --git
a/compiler/iface/IfaceEnv.lhs
b/compiler/iface/IfaceEnv.lhs
index
ab1f905
..
05c6289
100644
(file)
--- a/
compiler/iface/IfaceEnv.lhs
+++ b/
compiler/iface/IfaceEnv.lhs
@@
-26,7
+26,6
@@
import TyCon
import DataCon
import Var
import Name
import DataCon
import Var
import Name
-import OccName
import PrelNames
import Module
import LazyUniqFM
import PrelNames
import Module
import LazyUniqFM
diff --git
a/compiler/iface/LoadIface.lhs
b/compiler/iface/LoadIface.lhs
index
e468fe9
..
1412b00
100644
(file)
--- a/
compiler/iface/LoadIface.lhs
+++ b/
compiler/iface/LoadIface.lhs
@@
-28,7
+28,6
@@
import HscTypes
import BasicTypes hiding (SuccessFlag(..))
import TcRnMonad
import BasicTypes hiding (SuccessFlag(..))
import TcRnMonad
-import Type
import PrelNames
import PrelInfo
import PrelNames
import PrelInfo
@@
-39,9
+38,7
@@
import InstEnv
import FamInstEnv
import Name
import NameEnv
import FamInstEnv
import Name
import NameEnv
-import MkId
import Module
import Module
-import OccName
import Maybes
import ErrUtils
import Finder
import Maybes
import ErrUtils
import Finder
@@
-55,8
+52,6
@@
import FastString
import Fingerprint
import Control.Monad
import Fingerprint
import Control.Monad
-import Data.List
-import Data.Maybe
\end{code}
\end{code}
diff --git
a/compiler/iface/MkIface.lhs
b/compiler/iface/MkIface.lhs
index
478d7d3
..
c929d96
100644
(file)
--- a/
compiler/iface/MkIface.lhs
+++ b/
compiler/iface/MkIface.lhs
@@
-51,7
+51,6
@@
Basic idea:
#include "HsVersions.h"
import IfaceSyn
#include "HsVersions.h"
import IfaceSyn
-import IfaceType
import LoadIface
import Id
import IdInfo
import LoadIface
import Id
import IdInfo
@@
-77,7
+76,6
@@
import Name
import RdrName
import NameEnv
import NameSet
import RdrName
import NameEnv
import NameSet
-import OccName
import Module
import BinIface
import ErrUtils
import Module
import BinIface
import ErrUtils
@@
-95,7
+93,6
@@
import ListSetOps
import Binary
import Fingerprint
import Bag
import Binary
import Fingerprint
import Bag
-import Panic
import Control.Monad
import Data.List
import Control.Monad
import Data.List
diff --git
a/compiler/iface/TcIface.lhs
b/compiler/iface/TcIface.lhs
index
61475de
..
7db9551
100644
(file)
--- a/
compiler/iface/TcIface.lhs
+++ b/
compiler/iface/TcIface.lhs
@@
-42,7
+42,6
@@
import qualified Var
import VarEnv
import Name
import NameEnv
import VarEnv
import Name
import NameEnv
-import OccName
import Module
import LazyUniqFM
import UniqSupply
import Module
import LazyUniqFM
import UniqSupply
@@
-57,7
+56,6
@@
import BasicTypes (Arity)
import Control.Monad
import Data.List
import Control.Monad
import Data.List
-import Data.Maybe
\end{code}
This module takes
\end{code}
This module takes
diff --git
a/compiler/main/CodeOutput.lhs
b/compiler/main/CodeOutput.lhs
index
3b45a38
..
3c82ea7
100644
(file)
--- a/
compiler/main/CodeOutput.lhs
+++ b/
compiler/main/CodeOutput.lhs
@@
-33,7
+33,6
@@
import Outputable
import Module
import Maybes ( firstJust )
import Module
import Maybes ( firstJust )
-import Distribution.Text
import Directory ( doesFileExist )
import Monad ( when )
import IO
import Directory ( doesFileExist )
import Monad ( when )
import IO
diff --git
a/compiler/main/Finder.lhs
b/compiler/main/Finder.lhs
index
ac0eff8
..
cc19e31
100644
(file)
--- a/
compiler/main/Finder.lhs
+++ b/
compiler/main/Finder.lhs
@@
-40,10
+40,8
@@
import Maybes ( expectJust )
import Distribution.Package hiding (PackageId)
import Data.IORef ( IORef, writeIORef, readIORef, modifyIORef )
import Distribution.Package hiding (PackageId)
import Data.IORef ( IORef, writeIORef, readIORef, modifyIORef )
-import Data.List
import System.Directory
import System.FilePath
import System.Directory
import System.FilePath
-import System.IO
import Control.Monad
import System.Time ( ClockTime )
import Control.Monad
import System.Time ( ClockTime )
diff --git
a/compiler/main/GHC.hs
b/compiler/main/GHC.hs
index
8cf1666
..
b00f79f
100644
(file)
--- a/
compiler/main/GHC.hs
+++ b/
compiler/main/GHC.hs
@@
-245,7
+245,6
@@
import qualified Linker
import Linker ( HValue )
import ByteCodeInstr
import BreakArray
import Linker ( HValue )
import ByteCodeInstr
import BreakArray
-import NameSet
import InteractiveEval
import TcRnDriver
#endif
import InteractiveEval
import TcRnDriver
#endif
diff --git
a/compiler/main/HscTypes.lhs
b/compiler/main/HscTypes.lhs
index
f23ff58
..
05c17ab
100644
(file)
--- a/
compiler/main/HscTypes.lhs
+++ b/
compiler/main/HscTypes.lhs
@@
-117,8
+117,6
@@
import RdrName
import Name
import NameEnv
import NameSet
import Name
import NameEnv
import NameSet
-import OccName ( OccName, OccEnv, lookupOccEnv, mkOccEnv, emptyOccEnv,
- extendOccEnv )
import Module
import InstEnv ( InstEnv, Instance )
import FamInstEnv ( FamInstEnv, FamInst )
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 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 )
import OptimizationFuel ( OptFuelState )
import IfaceSyn
import FiniteMap ( FiniteMap )
diff --git
a/compiler/main/PprTyThing.hs
b/compiler/main/PprTyThing.hs
index
2479028
..
d87ffa1
100644
(file)
--- a/
compiler/main/PprTyThing.hs
+++ b/
compiler/main/PprTyThing.hs
@@
-20,7
+20,6
@@
import qualified GHC
import GHC ( TyThing(..) )
import TyCon
import GHC ( TyThing(..) )
import TyCon
-import Type ( TyThing(..), tidyTopType, pprTypeApp )
import TcType
import Var
import Name
import TcType
import Var
import Name
diff --git
a/compiler/main/SysTools.lhs
b/compiler/main/SysTools.lhs
index
26c85bd
..
bb706df
100644
(file)
--- a/
compiler/main/SysTools.lhs
+++ b/
compiler/main/SysTools.lhs
@@
-55,7
+55,6
@@
import System.IO
import System.IO.Error as IO
import System.Directory
import Data.Char
import System.IO.Error as IO
import System.Directory
import Data.Char
-import Data.Maybe
import Data.List
#ifndef mingw32_HOST_OS
import Data.List
#ifndef mingw32_HOST_OS
diff --git
a/compiler/main/TidyPgm.lhs
b/compiler/main/TidyPgm.lhs
index
5c78927
..
530e54c
100644
(file)
--- a/
compiler/main/TidyPgm.lhs
+++ b/
compiler/main/TidyPgm.lhs
@@
-33,7
+33,6
@@
import Name
import NameSet
import IfaceEnv
import NameEnv
import NameSet
import IfaceEnv
import NameEnv
-import OccName
import TcType
import DataCon
import TyCon
import TcType
import DataCon
import TyCon
@@
-46,7
+45,6
@@
import Outputable
import FastBool hiding ( fastOr )
import Data.List ( partition )
import FastBool hiding ( fastOr )
import Data.List ( partition )
-import Data.Maybe ( isJust )
import Data.IORef ( IORef, readIORef, writeIORef )
\end{code}
import Data.IORef ( IORef, readIORef, writeIORef )
\end{code}
diff --git
a/compiler/nativeGen/Reg.hs
b/compiler/nativeGen/Reg.hs
index
4819d0f
..
1da72c4
100644
(file)
--- a/
compiler/nativeGen/Reg.hs
+++ b/
compiler/nativeGen/Reg.hs
@@
-29,7
+29,6
@@
where
import Outputable
import Unique
import Outputable
import Unique
-import Panic
import RegClass
import Data.List
import RegClass
import Data.List
diff --git
a/compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
b/compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
index
8521e92
..
74eb0c2
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
+++ b/
compiler/nativeGen/RegAlloc/Graph/Coalesce.hs
@@
-18,7
+18,6
@@
import UniqFM
import UniqSet
import UniqSupply
import UniqSet
import UniqSupply
-import Control.Monad
import Data.List
-- | Do register coalescing on this top level thing
import Data.List
-- | Do register coalescing on this top level thing
diff --git
a/compiler/nativeGen/RegAlloc/Graph/Main.hs
b/compiler/nativeGen/RegAlloc/Graph/Main.hs
index
4ffcfee
..
5fa771c
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Graph/Main.hs
+++ b/
compiler/nativeGen/RegAlloc/Graph/Main.hs
@@
-11,7
+11,6
@@
module RegAlloc.Graph.Main (
where
import qualified GraphColor as Color
where
import qualified GraphColor as Color
-import qualified GraphBase as Color
import RegAlloc.Liveness
import RegAlloc.Graph.Spill
import RegAlloc.Graph.SpillClean
import RegAlloc.Liveness
import RegAlloc.Graph.Spill
import RegAlloc.Graph.SpillClean
diff --git
a/compiler/nativeGen/RegAlloc/Graph/Spill.hs
b/compiler/nativeGen/RegAlloc/Graph/Spill.hs
index
ce34b51
..
f9a2586
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Graph/Spill.hs
+++ b/
compiler/nativeGen/RegAlloc/Graph/Spill.hs
@@
-22,7
+22,6
@@
import UniqSupply
import Outputable
import Data.List
import Outputable
import Data.List
-import Data.Maybe
-- | Spill all these virtual regs to memory
-- | Spill all these virtual regs to memory
diff --git
a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
index
9d0dcf9
..
b7b7475
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
+++ b/
compiler/nativeGen/RegAlloc/Graph/SpillClean.hs
@@
-42,7
+42,6
@@
import State
import Outputable
import Util
import Outputable
import Util
-import Data.Maybe
import Data.List ( find, nub )
--
import Data.List ( find, nub )
--
diff --git
a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
index
ff3f76a
..
9de48d5
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
+++ b/
compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
@@
-33,7
+33,6
@@
import State
import Data.List (nub, minimumBy)
import Data.Maybe
import Data.List (nub, minimumBy)
import Data.Maybe
-import Control.Monad
type SpillCostRecord
= ( VirtualReg -- register name
type SpillCostRecord
= ( VirtualReg -- register name
diff --git
a/compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
b/compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
index
db3d8a3
..
4ba637f
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
+++ b/
compiler/nativeGen/RegAlloc/Linear/X86/FreeRegs.hs
@@
-10,7
+10,6
@@
import Panic
import Data.Word
import Data.Bits
import Data.Word
import Data.Bits
-import Data.List
type FreeRegs
= Word32
type FreeRegs
= Word32
diff --git
a/compiler/nativeGen/SPARC/Instr.hs
b/compiler/nativeGen/SPARC/Instr.hs
index
5cb28d5
..
87b6abc
100644
(file)
--- a/
compiler/nativeGen/SPARC/Instr.hs
+++ b/
compiler/nativeGen/SPARC/Instr.hs
@@
-43,8
+43,6
@@
import FastString
import FastBool
import Outputable
import FastBool
import Outputable
-import GHC.Exts
-
-- | Register or immediate
data RI
-- | Register or immediate
data RI
diff --git
a/compiler/nativeGen/X86/Instr.hs
b/compiler/nativeGen/X86/Instr.hs
index
7e11d23
..
5d731bd
100644
(file)
--- a/
compiler/nativeGen/X86/Instr.hs
+++ b/
compiler/nativeGen/X86/Instr.hs
@@
-28,7
+28,6
@@
import Outputable
import Constants (rESERVED_C_STACK_BYTES)
import CLabel
import Constants (rESERVED_C_STACK_BYTES)
import CLabel
-import Panic
-- Size of a PPC memory address, in bytes.
--
-- Size of a PPC memory address, in bytes.
--
diff --git
a/compiler/parser/HaddockUtils.hs
b/compiler/parser/HaddockUtils.hs
index
ea73911
..
b84692a
100644
(file)
--- a/
compiler/parser/HaddockUtils.hs
+++ b/
compiler/parser/HaddockUtils.hs
@@
-2,16
+2,13
@@
module HaddockUtils where
import HsSyn
module HaddockUtils where
import HsSyn
-import HsDoc
import {-# SOURCE #-} HaddockLex
import HaddockParse
import SrcLoc
import RdrName
import Control.Monad
import {-# SOURCE #-} HaddockLex
import HaddockParse
import SrcLoc
import RdrName
import Control.Monad
-import Data.Maybe
import Data.Char
import Data.Char
-import Data.Either
-- -----------------------------------------------------------------------------
-- Parsing module headers
-- -----------------------------------------------------------------------------
-- Parsing module headers
diff --git
a/compiler/rename/RnEnv.lhs
b/compiler/rename/RnEnv.lhs
index
2ecaf61
..
955786b
100644
(file)
--- a/
compiler/rename/RnEnv.lhs
+++ b/
compiler/rename/RnEnv.lhs
@@
-57,7
+57,7
@@
import Module ( Module, ModuleName )
import PrelNames ( mkUnboundName, rOOT_MAIN, iNTERACTIVE,
consDataConKey, hasKey, forall_tv_RDR )
import UniqSupply
import PrelNames ( mkUnboundName, rOOT_MAIN, iNTERACTIVE,
consDataConKey, hasKey, forall_tv_RDR )
import UniqSupply
-import BasicTypes ( IPName, mapIPName, Fixity )
+import BasicTypes
import ErrUtils ( Message )
import SrcLoc
import Outputable
import ErrUtils ( Message )
import SrcLoc
import Outputable
diff --git
a/compiler/rename/RnExpr.lhs
b/compiler/rename/RnExpr.lhs
index
c459b70
..
86b41ae
100644
(file)
--- a/
compiler/rename/RnExpr.lhs
+++ b/
compiler/rename/RnExpr.lhs
@@
-50,7
+50,6
@@
import SrcLoc
import FastString
import List ( unzip4 )
import FastString
import List ( unzip4 )
-import Control.Monad
\end{code}
\end{code}
diff --git
a/compiler/rename/RnHsDoc.hs
b/compiler/rename/RnHsDoc.hs
index
c556d2c
..
4d10edc
100644
(file)
--- a/
compiler/rename/RnHsDoc.hs
+++ b/
compiler/rename/RnHsDoc.hs
@@
-2,7
+2,6
@@
module RnHsDoc ( rnHaddock, rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
import TcRnTypes
module RnHsDoc ( rnHaddock, rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
import TcRnTypes
-import TcRnMonad ( RnM )
import RnEnv ( dataTcOccs, lookupGreRn_maybe )
import HsSyn
import RnEnv ( dataTcOccs, lookupGreRn_maybe )
import HsSyn
diff --git
a/compiler/rename/RnSource.lhs
b/compiler/rename/RnSource.lhs
index
052b7e0
..
674ec78
100644
(file)
--- a/
compiler/rename/RnSource.lhs
+++ b/
compiler/rename/RnSource.lhs
@@
-46,7
+46,6
@@
import Maybe ( isNothing )
import BasicTypes ( Boxity(..) )
import ListSetOps (findDupsEq)
import BasicTypes ( Boxity(..) )
import ListSetOps (findDupsEq)
-import List
import Control.Monad
\end{code}
import Control.Monad
\end{code}
diff --git
a/compiler/simplCore/CoreMonad.lhs
b/compiler/simplCore/CoreMonad.lhs
index
ae45ba4
..
a231103
100644
(file)
--- a/
compiler/simplCore/CoreMonad.lhs
+++ b/
compiler/simplCore/CoreMonad.lhs
@@
-55,7
+55,6
@@
import TcRnMonad ( TcM, initTc )
import Outputable
import qualified ErrUtils as Err
import Outputable
import qualified ErrUtils as Err
-import MonadUtils
import Maybes
import UniqSupply
import Maybes
import UniqSupply
@@
-63,7
+62,6
@@
import Data.Dynamic
import Data.IORef
import Data.Word
import Control.Monad
import Data.IORef
import Data.Word
import Control.Monad
-import Control.Applicative
import Prelude hiding ( read )
import Prelude hiding ( read )
diff --git
a/compiler/simplCore/SAT.lhs
b/compiler/simplCore/SAT.lhs
index
ca25156
..
08bb1ec
100644
(file)
--- a/
compiler/simplCore/SAT.lhs
+++ b/
compiler/simplCore/SAT.lhs
@@
-56,10
+56,8
@@
import Var
import CoreSyn
import CoreUtils
import Type
import CoreSyn
import CoreUtils
import Type
-import TcType
import Id
import Name
import Id
import Name
-import OccName
import VarEnv
import UniqSupply
import Util
import VarEnv
import UniqSupply
import Util
diff --git
a/compiler/simplCore/SetLevels.lhs
b/compiler/simplCore/SetLevels.lhs
index
9726aa6
..
0797ad7
100644
(file)
--- a/
compiler/simplCore/SetLevels.lhs
+++ b/
compiler/simplCore/SetLevels.lhs
@@
-60,7
+60,7
@@
import CoreUtils ( exprType, exprIsTrivial, mkPiTypes )
import CoreFVs -- all of it
import CoreSubst ( Subst, emptySubst, extendInScope, extendIdSubst,
cloneIdBndr, cloneRecIdBndrs )
import CoreFVs -- all of it
import CoreSubst ( Subst, emptySubst, extendInScope, extendIdSubst,
cloneIdBndr, cloneRecIdBndrs )
-import Id ( Id, idType, mkSysLocal, isOneShotLambda,
+import Id ( idType, mkSysLocal, isOneShotLambda,
zapDemandIdInfo, transferPolyIdInfo,
idSpecialisation, idWorkerInfo, setIdInfo
)
zapDemandIdInfo, transferPolyIdInfo,
idSpecialisation, idWorkerInfo, setIdInfo
)
diff --git
a/compiler/simplStg/SRT.lhs
b/compiler/simplStg/SRT.lhs
index
989fa4c
..
abad3ce
100644
(file)
--- a/
compiler/simplStg/SRT.lhs
+++ b/
compiler/simplStg/SRT.lhs
@@
-27,8
+27,6
@@
import Bitmap
import Outputable
import Outputable
-import List
-
import Util
\end{code}
import Util
\end{code}
diff --git
a/compiler/specialise/SpecConstr.lhs
b/compiler/specialise/SpecConstr.lhs
index
3a4b382
..
5357a53
100644
(file)
--- a/
compiler/specialise/SpecConstr.lhs
+++ b/
compiler/specialise/SpecConstr.lhs
@@
-32,7
+32,6
@@
import Var
import VarEnv
import VarSet
import Name
import VarEnv
import VarSet
import Name
-import OccName ( mkSpecOcc )
import DynFlags ( DynFlags(..) )
import StaticFlags ( opt_PprStyle_Debug )
import StaticFlags ( opt_SpecInlineJoinPoints )
import DynFlags ( DynFlags(..) )
import StaticFlags ( opt_PprStyle_Debug )
import StaticFlags ( opt_SpecInlineJoinPoints )
diff --git
a/compiler/stgSyn/StgLint.lhs
b/compiler/stgSyn/StgLint.lhs
index
f2cecf9
..
21db424
100644
(file)
--- a/
compiler/stgSyn/StgLint.lhs
+++ b/
compiler/stgSyn/StgLint.lhs
@@
-20,7
+20,7
@@
import Name ( getSrcLoc )
import ErrUtils ( Message, mkLocMessage )
import TypeRep
import Type ( mkFunTys, splitFunTys, splitTyConApp_maybe,
import ErrUtils ( Message, mkLocMessage )
import TypeRep
import Type ( mkFunTys, splitFunTys, splitTyConApp_maybe,
- isUnLiftedType, isTyVarTy, dropForAlls, Type
+ isUnLiftedType, isTyVarTy, dropForAlls
)
import TyCon ( isAlgTyCon, isNewTyCon, tyConDataCons )
import Util ( zipEqual, equalLength )
)
import TyCon ( isAlgTyCon, isNewTyCon, tyConDataCons )
import Util ( zipEqual, equalLength )
diff --git
a/compiler/stranal/WorkWrap.lhs
b/compiler/stranal/WorkWrap.lhs
index
a3219ab
..
7b124f3
100644
(file)
--- a/
compiler/stranal/WorkWrap.lhs
+++ b/
compiler/stranal/WorkWrap.lhs
@@
-11,10
+11,7
@@
import CoreUnfold ( certainlyWillInline )
import CoreUtils ( exprType, exprIsHNF, mkInlineMe )
import CoreArity ( exprArity )
import Var
import CoreUtils ( exprType, exprIsHNF, mkInlineMe )
import CoreArity ( exprArity )
import Var
-import Id ( Id, idType, isOneShotLambda, idUnfolding,
- setIdNewStrictness, mkWorkerId,
- setIdWorkerInfo, setInlineActivation,
- setIdArity, idInfo )
+import Id
import Type ( Type )
import IdInfo
import NewDemand ( Demand(..), StrictSig(..), DmdType(..), DmdResult(..),
import Type ( Type )
import IdInfo
import NewDemand ( Demand(..), StrictSig(..), DmdType(..), DmdResult(..),
diff --git
a/compiler/stranal/WwLib.lhs
b/compiler/stranal/WwLib.lhs
index
a7050dc
..
bceb453
100644
(file)
--- a/
compiler/stranal/WwLib.lhs
+++ b/
compiler/stranal/WwLib.lhs
@@
-23,7
+23,7
@@
import TysWiredIn ( tupleCon )
import Type
import Coercion ( mkSymCoercion, splitNewTypeRepCo_maybe )
import BasicTypes ( Boxity(..) )
import Type
import Coercion ( mkSymCoercion, splitNewTypeRepCo_maybe )
import BasicTypes ( Boxity(..) )
-import Var ( Var, isId )
+import Var ( Var )
import UniqSupply
import Unique
import Util ( zipWithEqual )
import UniqSupply
import Unique
import Util ( zipWithEqual )
diff --git
a/compiler/typecheck/TcBinds.lhs
b/compiler/typecheck/TcBinds.lhs
index
eae66a8
..
9bf8faf
100644
(file)
--- a/
compiler/typecheck/TcBinds.lhs
+++ b/
compiler/typecheck/TcBinds.lhs
@@
-26,7
+26,6
@@
import TcHsType
import TcPat
import TcMType
import TcType
import TcPat
import TcMType
import TcType
-import {- Kind parts of -} Type
import Coercion
import VarEnv
import TysPrim
import Coercion
import VarEnv
import TysPrim
@@
-41,7
+40,6
@@
import Bag
import ErrUtils
import Digraph
import Maybes
import ErrUtils
import Digraph
import Maybes
-import List
import Util
import BasicTypes
import Outputable
import Util
import BasicTypes
import Outputable
diff --git
a/compiler/typecheck/TcEnv.lhs
b/compiler/typecheck/TcEnv.lhs
index
14f9541
..
2146932
100644
(file)
--- a/
compiler/typecheck/TcEnv.lhs
+++ b/
compiler/typecheck/TcEnv.lhs
@@
-70,11
+70,9
@@
import TypeRep
import Class
import Name
import NameEnv
import Class
import Name
import NameEnv
-import OccName
import HscTypes
import SrcLoc
import Outputable
import HscTypes
import SrcLoc
import Outputable
-import Maybes
import Unique
import FastString
\end{code}
import Unique
import FastString
\end{code}
diff --git
a/compiler/typecheck/TcHsSyn.lhs
b/compiler/typecheck/TcHsSyn.lhs
index
6120621
..
7b88356
100644
(file)
--- a/
compiler/typecheck/TcHsSyn.lhs
+++ b/
compiler/typecheck/TcHsSyn.lhs
@@
-48,7
+48,6
@@
import VarEnv
import Literal
import BasicTypes
import Maybes
import Literal
import BasicTypes
import Maybes
-import Unique
import SrcLoc
import Util
import Bag
import SrcLoc
import Util
import Bag
diff --git
a/compiler/typecheck/TcHsType.lhs
b/compiler/typecheck/TcHsType.lhs
index
a63c2ce
..
d64461f
100644
(file)
--- a/
compiler/typecheck/TcHsType.lhs
+++ b/
compiler/typecheck/TcHsType.lhs
@@
-43,7
+43,6
@@
import Coercion
import TyCon
import Class
import Name
import TyCon
import Class
import Name
-import OccName
import NameSet
import PrelNames
import TysWiredIn
import NameSet
import PrelNames
import TysWiredIn
@@
-52,8
+51,6
@@
import SrcLoc
import UniqSupply
import Outputable
import FastString
import UniqSupply
import Outputable
import FastString
-
-import Control.Monad
\end{code}
\end{code}
diff --git
a/compiler/typecheck/TcPat.lhs
b/compiler/typecheck/TcPat.lhs
index
376385a
..
3423196
100644
(file)
--- a/
compiler/typecheck/TcPat.lhs
+++ b/
compiler/typecheck/TcPat.lhs
@@
-30,7
+30,6
@@
import VarSet
import TcUnify
import TcHsType
import TysWiredIn
import TcUnify
import TcHsType
import TysWiredIn
-import Type
import Coercion
import StaticFlags
import TyCon
import Coercion
import StaticFlags
import TyCon
@@
-41,7
+40,6
@@
import DynFlags ( DynFlag( Opt_GADTs ) )
import SrcLoc
import ErrUtils
import Util
import SrcLoc
import ErrUtils
import Util
-import Maybes
import Outputable
import FastString
import Monad
import Outputable
import FastString
import Monad
diff --git
a/compiler/typecheck/TcRnMonad.lhs
b/compiler/typecheck/TcRnMonad.lhs
index
dbe822a
..
2450d7b
100644
(file)
--- a/
compiler/typecheck/TcRnMonad.lhs
+++ b/
compiler/typecheck/TcRnMonad.lhs
@@
-31,7
+31,6
@@
import ErrUtils
import SrcLoc
import NameEnv
import NameSet
import SrcLoc
import NameEnv
import NameSet
-import OccName
import Bag
import Outputable
import UniqSupply
import Bag
import Outputable
import UniqSupply
diff --git
a/compiler/typecheck/TcRnTypes.lhs
b/compiler/typecheck/TcRnTypes.lhs
index
c8d7550
..
daed79d
100644
(file)
--- a/
compiler/typecheck/TcRnTypes.lhs
+++ b/
compiler/typecheck/TcRnTypes.lhs
@@
-68,8
+68,6
@@
import Outputable
import ListSetOps
import FastString
import ListSetOps
import FastString
-import Data.Maybe
-import Data.List
import Data.Set (Set)
\end{code}
import Data.Set (Set)
\end{code}
diff --git
a/compiler/typecheck/TcSimplify.lhs
b/compiler/typecheck/TcSimplify.lhs
index
11e202b
..
74952e4
100644
(file)
--- a/
compiler/typecheck/TcSimplify.lhs
+++ b/
compiler/typecheck/TcSimplify.lhs
@@
-45,7
+45,6
@@
import Class
import FunDeps
import PrelInfo
import PrelNames
import FunDeps
import PrelInfo
import PrelNames
-import Type
import TysWiredIn
import ErrUtils
import BasicTypes
import TysWiredIn
import ErrUtils
import BasicTypes
@@
-54,7
+53,6
@@
import VarEnv
import FiniteMap
import Bag
import Outputable
import FiniteMap
import Bag
import Outputable
-import Maybes
import ListSetOps
import Util
import SrcLoc
import ListSetOps
import Util
import SrcLoc
diff --git
a/compiler/typecheck/TcTyFuns.lhs
b/compiler/typecheck/TcTyFuns.lhs
index
6426c92
..
bf0b16a
100644
(file)
--- a/
compiler/typecheck/TcTyFuns.lhs
+++ b/
compiler/typecheck/TcTyFuns.lhs
@@
-38,7
+38,6
@@
import Bag
import Outputable
import SrcLoc ( Located(..) )
import Maybes
import Outputable
import SrcLoc ( Located(..) )
import Maybes
-import MonadUtils
import FastString
-- standard
import FastString
-- standard
diff --git
a/compiler/types/FamInstEnv.lhs
b/compiler/types/FamInstEnv.lhs
index
5ea2096
..
de5c5a0
100644
(file)
--- a/
compiler/types/FamInstEnv.lhs
+++ b/
compiler/types/FamInstEnv.lhs
@@
-36,8
+36,6
@@
import Outputable
import Maybes
import Util
import FastString
import Maybes
import Util
import FastString
-
-import Maybe
\end{code}
\end{code}
diff --git
a/compiler/types/Generics.lhs
b/compiler/types/Generics.lhs
index
01632d3
..
fed023e
100644
(file)
--- a/
compiler/types/Generics.lhs
+++ b/
compiler/types/Generics.lhs
@@
-18,13
+18,11
@@
module Generics ( canDoGenerics, mkTyConGenericBinds,
import HsSyn
import Type
import HsSyn
import Type
-import TcHsSyn
import TcType
import DataCon
import TyCon
import Name
import TcType
import DataCon
import TyCon
import Name
-import OccName
import RdrName
import BasicTypes
import Var
import RdrName
import BasicTypes
import Var
diff --git
a/compiler/utils/Serialized.hs
b/compiler/utils/Serialized.hs
index
06b92e4
..
915ca22
100644
(file)
--- a/
compiler/utils/Serialized.hs
+++ b/
compiler/utils/Serialized.hs
@@
-29,7
+29,6
@@
import Data.Data
#else
import Data.Generics
#endif
#else
import Data.Generics
#endif
-import Data.Typeable
-- | Represents a serialized value of a particular type. Attempts can be made to deserialize it at certain types
-- | Represents a serialized value of a particular type. Attempts can be made to deserialize it at certain types
diff --git
a/compiler/vectorise/VectMonad.hs
b/compiler/vectorise/VectMonad.hs
index
8fdfcdb
..
d0b05ac
100644
(file)
--- a/
compiler/vectorise/VectMonad.hs
+++ b/
compiler/vectorise/VectMonad.hs
@@
-51,7
+51,6
@@
import VarEnv
import Id
import Name
import NameEnv
import Id
import Name
import NameEnv
-import IOEnv ( liftIO )
import DsMonad
import DsMonad
diff --git
a/compiler/vectorise/Vectorise.hs
b/compiler/vectorise/Vectorise.hs
index
777c195
..
a0e3e1a
100644
(file)
--- a/
compiler/vectorise/Vectorise.hs
+++ b/
compiler/vectorise/Vectorise.hs
@@
-13,7
+13,7
@@
import Module ( PackageId )
import CoreSyn
import CoreUtils
import CoreFVs
import CoreSyn
import CoreUtils
import CoreFVs
-import CoreMonad ( CoreM, getHscEnv, liftIO )
+import CoreMonad ( CoreM, getHscEnv )
import DataCon
import TyCon
import Type
import DataCon
import TyCon
import Type
@@
-24,8
+24,6
@@
import VarSet
import Id
import OccName
import Id
import OccName
-import DsMonad
-
import Literal ( Literal, mkMachInt )
import TysWiredIn
import Literal ( Literal, mkMachInt )
import TysWiredIn