Commit b1ab4b8a authored by Michael D. Adams's avatar Michael D. Adams
Browse files

Warning fix for unused and redundant imports

parent e46cab34
......@@ -36,7 +36,6 @@ import Cmm
import CmmUtils
import CLabel
import StgSyn
import StaticFlags
import CostCentre
import Id
import Name
......
......@@ -43,18 +43,10 @@ import Name
import DataCon
import Unique
import StaticFlags
import FastString
import Packages
import Module
import Maybes
import Constants
import Outputable
import Data.Char
import Data.Word
-------------------------------------------------------------------------
--
-- Generating the info table and code for a closure
......
......@@ -10,16 +10,14 @@ module MkExternalCore (
#include "HsVersions.h"
import qualified ExternalCore as C
import Char
import Module
import CoreSyn
import HscTypes
import TyCon
import TypeRep
import Type
import PprExternalCore -- Instances
import PprExternalCore () -- Instances
import DataCon
import CoreSyn
import Coercion
import Var
import IdInfo
......
......@@ -11,7 +11,6 @@ module Check ( check , ExhaustivePat ) where
import HsSyn
import TcHsSyn
import TcType
import DsUtils
import MatchLit
import Id
......
......@@ -14,14 +14,12 @@ import {-# SOURCE #-} DsExpr ( dsLExpr, dsLocalBinds )
import {-# SOURCE #-} Match ( matchSinglePat )
import HsSyn
import HsUtils
import CoreSyn
import Var
import Type
import DsMonad
import DsUtils
import Unique
import PrelInfo
import TysWiredIn
import PrelNames
......
......@@ -21,7 +21,6 @@ import DsMonad -- the monadery used in the desugarer
import DsUtils
import DynFlags
import StaticFlags
import CoreUtils
import Var
import Type
......
......@@ -55,8 +55,6 @@ import NameEnv
import OccName
import DynFlags
import ErrUtils
import Bag
import OccName
import Data.IORef
......
......@@ -26,7 +26,6 @@ import DataCon
import MatchCon
import MatchLit
import PrelInfo
import TcType
import Type
import TysWiredIn
import BasicTypes
......
......@@ -27,12 +27,10 @@ import TcType
import Type
import PrelNames
import TysWiredIn
import PrelNames
import Unique
import Literal
import SrcLoc
import Ratio
import SrcLoc
import Outputable
import Util
import FastString
......
......@@ -17,7 +17,7 @@ import {-# SOURCE #-} HsExpr ( HsExpr, pprExpr, LHsExpr,
import {-# SOURCE #-} HsPat ( LPat )
import HsTypes
import PprCore
import PprCore ()
import Coercion
import Type
import Name
......
......@@ -28,7 +28,6 @@ import Class
import TyCon
import Type
import Coercion
import Outputable
import Data.List
\end{code}
......
......@@ -38,7 +38,6 @@ import InstEnv
import FamInstEnv
import Name
import NameEnv
import NameSet
import MkId
import Module
import OccName
......@@ -52,7 +51,6 @@ import Outputable
import BinIface
import Panic
import Control.Monad (when)
import Data.List
import Data.Maybe
import Data.IORef
......
......@@ -30,7 +30,6 @@ import Packages
import HeaderInfo
import DriverPhases
import SysTools
import qualified SysTools
import HscMain
import Finder
import HscTypes
......@@ -60,7 +59,6 @@ import Control.Monad
import Data.List ( isSuffixOf )
import Data.Maybe
import System.Exit
import System.Cmd
import System.Environment
-- ---------------------------------------------------------------------------
......
......@@ -31,15 +31,13 @@ module ErrUtils (
import Bag ( Bag, bagToList, isEmptyBag, emptyBag )
import SrcLoc ( SrcSpan )
import Util ( sortLe, global )
import Util ( sortLe )
import Outputable
import qualified Pretty
import SrcLoc ( srcSpanStart, noSrcSpan )
import DynFlags ( DynFlags(..), DynFlag(..), dopt )
import StaticFlags ( opt_ErrorSpans )
import System.Exit ( ExitCode(..), exitWith )
import System.IO ( hPutStrLn, stderr )
import Data.Dynamic
......
......@@ -23,7 +23,6 @@ import PrelNames ( gHC_PRIM, mAIN_NAME )
import StringBuffer ( StringBuffer(..), hGetStringBuffer, hGetStringBufferBlock
, appendStringBuffers )
import SrcLoc
import FastString ( mkFastString )
import DynFlags
import ErrUtils
import Util
......
......@@ -75,7 +75,6 @@ import GHC.IOBase ( IOErrorType(..) )
#else
import System.Process ( runInteractiveProcess, getProcessExitCode )
import Control.Concurrent( forkIO, newChan, readChan, writeChan )
import Data.Char ( isSpace )
import FastString ( mkFastString )
import SrcLoc ( SrcLoc, mkSrcLoc, noSrcSpan, mkSrcSpan )
#endif
......
......@@ -26,16 +26,12 @@ import CmmOpt ( cmmMiniInline, cmmMachOpFold )
import PprCmm ( pprStmt, pprCmms )
import MachOp
import CLabel
#if powerpc_TARGET_ARCH
import CLabel ( mkRtsCodeLabel )
#endif
import UniqFM
import Unique ( Unique, getUnique )
import UniqSupply
import FastTypes
import List ( groupBy, sortBy )
import CLabel ( pprCLabel )
import ErrUtils ( dumpIfSet_dyn )
import DynFlags
import StaticFlags ( opt_Static, opt_PIC )
......
......@@ -55,12 +55,11 @@ module Flattening (
#include "HsVersions.h"
-- friends
import NDPCoreUtils (tupleTyArgs, funTyArgs, parrElemTy, isDefault,
import NDPCoreUtils (tupleTyArgs, funTyArgs, isDefault,
isLit, mkPArrTy, mkTuple, isSimpleExpr, substIdEnv)
import FlattenMonad (Flatten, runFlatten, mkBind, extendContext, packContext,
liftVar, liftConst, intersectWithContext, mk'fst,
mk'lengthP, mk'replicateP, mk'mapP, mk'bpermuteDftP,
mk'indexOfP,mk'eq,mk'neq)
mk'mapP, mk'bpermuteDftP, mk'indexOfP,mk'eq,mk'neq)
-- GHC
import TcType ( tcIsForAllTy, tcView )
......@@ -75,9 +74,9 @@ import Literal (Literal, literalType)
import Var (Var(..), idType, isTyVar)
import Id (setIdType)
import DataCon (DataCon, dataConTag)
import HscTypes ( ModGuts(..), ModGuts, HscEnv(..), hscEPS )
import HscTypes ( ModGuts(..), HscEnv(..), hscEPS )
import CoreFVs (exprFreeVars)
import CoreSyn (Expr(..), Bind(..), Alt(..), AltCon(..), Note(..),
import CoreSyn (Expr(..), Bind(..), Alt, AltCon(..),
CoreBndr, CoreExpr, CoreBind, mkLams, mkLets,
mkApps, mkIntLitInt)
import PprCore (pprCoreExpr)
......
......@@ -12,15 +12,12 @@ module HaddockLex (
tokenise
) where
import HsSyn
import Lexer hiding (Token)
import Parser ( parseIdentifier )
import StringBuffer
import OccName
import RdrName
import SrcLoc
import DynFlags
import DynFlags
import Char
import Numeric
......
module LexCore where
import ParserCoreUtils
import Ratio
import Char
import Numeric
......
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