Commit d436c70d authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Trim unused imports detected by new unused-import code

parent 0bde1150
......@@ -51,7 +51,6 @@ import Outputable
import Unique
import ListSetOps
import Util
import Maybes
import FastString
import Module
......
......@@ -126,7 +126,6 @@ import Module
import Class
import PrimOp
import ForeignCall
import OccName
import Maybes
import SrcLoc
import Outputable
......
......@@ -102,8 +102,6 @@ import FastString
import FastTypes
import Outputable
import Binary
import GHC.Exts
import Data.Char
\end{code}
......
......@@ -30,7 +30,6 @@ import FastTypes
import MonadUtils
import Control.Monad
import Control.Monad.Fix
#if __GLASGOW_HASKELL__ >= 611
import GHC.IO (unsafeDupableInterleaveIO)
#else
......
......@@ -8,7 +8,6 @@ import BlockId
import Cmm
import CmmExpr
import MkZipCfgCmm hiding (CmmGraph)
import ZipCfg -- imported for reverse conversion
import ZipCfgCmmRep -- imported for reverse conversion
import CmmZipUtil
import PprCmm()
......
......@@ -49,10 +49,7 @@ import CLabel
import Constants
import FastString
import FiniteMap
import Maybes
import Monad
import Outputable
import Panic
import Unique
import UniqSet
......
......@@ -5,7 +5,6 @@ module CmmProcPointZ
)
where
import qualified Prelude as P
import Prelude hiding (zip, unzip, last)
import BlockId
......
......@@ -5,7 +5,6 @@ module CmmStackLayout
where
import Constants
import qualified Prelude as P
import Prelude hiding (zip, unzip, last)
import BlockId
......
......@@ -16,7 +16,7 @@ import Maybes
import Panic
import UniqSet
import Data.List
-- import Data.List
fold_edge_facts_b ::
LastNode l => (DualLive -> a -> a) -> BackwardTransfers m l DualLive -> LGraph m l
......
......@@ -44,7 +44,6 @@ import CmmExpr ( UserOfLocalRegs(..) )
import PprCmm()
import Outputable hiding (empty)
import Panic
import Maybe
import Prelude hiding (zip, unzip, last)
......
......@@ -29,7 +29,6 @@ import CmmTx
import CLabel
import FastString
import ForeignCall
import qualified ZipCfg as Z
import qualified ZipDataflow as DF
import ZipCfg
import MkZipCfg
......@@ -40,7 +39,6 @@ import Maybes
import Monad
import Outputable
import Prelude hiding (zip, unzip, last)
import qualified Data.List as L
import SMRep (ByteOff)
import UniqSupply
......
......@@ -72,7 +72,6 @@ import Id
import IdInfo
import DataCon
import Name
import OccName
import Type
import TypeRep
import TcType
......
......@@ -74,8 +74,6 @@ import Maybes
import Util
import Data.Word
import Data.Bits
import GHC.Exts -- For `xori`
\end{code}
......
......@@ -13,14 +13,6 @@
-- a Royal Pain (triggers other recompilation).
-----------------------------------------------------------------------------
{-# OPTIONS -fno-warn-unused-imports #-}
-- The above warning supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See
-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
-- for details
-- The kludge is only needed in this module because of trac #2267.
module DsMeta( dsBracket,
templateHaskellNames, qTyConName, nameTyConName,
liftName, liftStringName, expQTyConName, patQTyConName, decQTyConName, typeQTyConName,
......
......@@ -31,9 +31,9 @@ import CoreFVs
import Type
import DataCon
import TyCon
import Type
-- import Type
import Util
import DataCon
-- import DataCon
import Var
import VarSet
import TysPrim
......@@ -51,7 +51,7 @@ import Data.List
import Foreign
import Foreign.C
import GHC.Exts ( Int(..), ByteArray# )
-- import GHC.Exts ( Int(..) )
import Control.Monad ( when )
import Data.Char
......
......@@ -20,18 +20,18 @@ import Id
import Name
import Var hiding ( varName )
import VarSet
import Name
-- import Name
import UniqSupply
import TcType
import GHC
import DynFlags
-- import DynFlags
import InteractiveEval
import Outputable
import SrcLoc
-- import SrcLoc
import PprTyThing
import MonadUtils
import Exception
-- import Exception
import Control.Monad
import Data.List
import Data.Maybe
......
......@@ -16,7 +16,7 @@ module LibFFI (
import TyCon
import ForeignCall
import Panic
import Outputable
-- import Outputable
import Constants
import Foreign
......
......@@ -28,7 +28,7 @@ import Config ( cLeadingUnderscore )
import Control.Monad ( when )
import Foreign.C
import Foreign ( nullPtr )
import GHC.Exts ( Ptr(..), unsafeCoerce# )
import GHC.Exts ( Ptr(..) )
......
......@@ -54,7 +54,7 @@ import TysWiredIn
import DynFlags
import Outputable
import FastString
import Panic
-- import Panic
import Constants ( wORD_SIZE )
......@@ -76,9 +76,8 @@ import qualified Data.Sequence as Seq
import Data.Monoid
import Data.Sequence hiding (null, length, index, take, drop, splitAt, reverse)
import Foreign
import System.IO.Unsafe
-- import System.IO.Unsafe
import System.IO
---------------------------------------------
-- * A representation of semi evaluated Terms
---------------------------------------------
......
......@@ -41,9 +41,6 @@ import Outputable
import FastString
import Module
import Data.List
import Data.Maybe
infixl 3 &&&
\end{code}
......
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