From: Ian Lynagh Date: Fri, 24 Jul 2009 21:08:25 +0000 (+0000) Subject: Remove GHC's haskell98 dependency X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1e50fd4185479a62e02d987bdfcb1c62712859ca Remove GHC's haskell98 dependency --- diff --git a/compiler/basicTypes/Literal.lhs b/compiler/basicTypes/Literal.lhs index d6e9274..5cf8adb 100644 --- a/compiler/basicTypes/Literal.lhs +++ b/compiler/basicTypes/Literal.lhs @@ -49,9 +49,9 @@ import FastTypes import FastString import BasicTypes import Binary -import Ratio import Data.Int +import Data.Ratio import Data.Word import Data.Char \end{code} diff --git a/compiler/cmm/CmmBrokenBlock.hs b/compiler/cmm/CmmBrokenBlock.hs index ec9da97..17b8178 100644 --- a/compiler/cmm/CmmBrokenBlock.hs +++ b/compiler/cmm/CmmBrokenBlock.hs @@ -23,7 +23,7 @@ import CgUtils (callerSaveVolatileRegs) import ClosureInfo import Maybes -import List +import Data.List import Panic import Unique diff --git a/compiler/cmm/CmmBuildInfoTables.hs b/compiler/cmm/CmmBuildInfoTables.hs index d2126cd..1a4a591 100644 --- a/compiler/cmm/CmmBuildInfoTables.hs +++ b/compiler/cmm/CmmBuildInfoTables.hs @@ -27,11 +27,11 @@ import FastString import FiniteMap import ForeignCall import IdInfo -import List (sortBy) +import Data.List import Maybes import MkZipCfg import MkZipCfgCmm hiding (CmmAGraph, CmmBlock, CmmTopZ, CmmZ, CmmGraph) -import Monad +import Control.Monad import Name import Outputable import SMRep diff --git a/compiler/cmm/CmmCPS.hs b/compiler/cmm/CmmCPS.hs index 6a1dc40..c5bcdc3 100644 --- a/compiler/cmm/CmmCPS.hs +++ b/compiler/cmm/CmmCPS.hs @@ -31,7 +31,7 @@ import UniqSupply import UniqSet import Unique -import Monad +import Control.Monad ----------------------------------------------------------------------------- -- |Top level driver for the CPS pass diff --git a/compiler/cmm/CmmCPSGen.hs b/compiler/cmm/CmmCPSGen.hs index dc43a83..eb754ae 100644 --- a/compiler/cmm/CmmCPSGen.hs +++ b/compiler/cmm/CmmCPSGen.hs @@ -23,7 +23,7 @@ import ForeignCall import Constants import StaticFlags import Unique -import Maybe +import Data.Maybe import FastString import Panic diff --git a/compiler/cmm/CmmCPSZ.hs b/compiler/cmm/CmmCPSZ.hs index b5a25f8..e44e304 100644 --- a/compiler/cmm/CmmCPSZ.hs +++ b/compiler/cmm/CmmCPSZ.hs @@ -20,8 +20,8 @@ import DynFlags import ErrUtils import FiniteMap import HscTypes -import Maybe -import Monad +import Data.Maybe +import Control.Monad import Outputable import StaticFlags diff --git a/compiler/cmm/CmmCommonBlockElimZ.hs b/compiler/cmm/CmmCommonBlockElimZ.hs index 4c144cf..90e7008 100644 --- a/compiler/cmm/CmmCommonBlockElimZ.hs +++ b/compiler/cmm/CmmCommonBlockElimZ.hs @@ -11,10 +11,10 @@ import ZipCfg import ZipCfgCmmRep import Data.Bits +import qualified Data.List as List import Data.Word import FastString -import List hiding (iterate) -import Monad +import Control.Monad import Outputable import UniqFM import Unique @@ -56,7 +56,7 @@ type State = (UniqFM [CmmBlock], BidMap) common_block :: (Outputable h, Uniquable h) => State -> (h, CmmBlock) -> (Bool, State) common_block (bmap, subst) (hash, b) = case lookupUFM bmap hash of - Just bs -> case (find (eqBlockBodyWith (eqBid subst) b) bs, + Just bs -> case (List.find (eqBlockBodyWith (eqBid subst) b) bs, lookupBlockEnv subst bid) of (Just b', Nothing) -> addSubst b' (Just b', Just b'') | blockId b' /= b'' -> addSubst b' diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs index 8ea8a3c..e0d9555 100644 --- a/compiler/cmm/CmmContFlowOpt.hs +++ b/compiler/cmm/CmmContFlowOpt.hs @@ -14,7 +14,7 @@ import ZipCfg import ZipCfgCmmRep import Maybes -import Monad +import Control.Monad import Outputable import Prelude hiding (unzip, zip) import Util diff --git a/compiler/cmm/CmmCvt.hs b/compiler/cmm/CmmCvt.hs index 016e725..7f5de60 100644 --- a/compiler/cmm/CmmCvt.hs +++ b/compiler/cmm/CmmCvt.hs @@ -13,7 +13,7 @@ import PprCmm() import qualified ZipCfg as G import FastString -import Monad +import Control.Monad import Outputable import UniqSupply diff --git a/compiler/cmm/CmmLint.hs b/compiler/cmm/CmmLint.hs index c2c9b2a..2fc4a74 100644 --- a/compiler/cmm/CmmLint.hs +++ b/compiler/cmm/CmmLint.hs @@ -19,13 +19,13 @@ module CmmLint ( import BlockId import Cmm import CLabel -import Maybe import Outputable import PprCmm import Constants import FastString import Control.Monad +import Data.Maybe -- ----------------------------------------------------------------------------- -- Exported entry points: diff --git a/compiler/cmm/CmmLiveZ.hs b/compiler/cmm/CmmLiveZ.hs index 3d8f570..ea9b2e5 100644 --- a/compiler/cmm/CmmLiveZ.hs +++ b/compiler/cmm/CmmLiveZ.hs @@ -11,7 +11,7 @@ import BlockId import CmmExpr import CmmTx import DFMonad -import Monad +import Control.Monad import PprCmm() import PprCmmZ() import ZipCfg diff --git a/compiler/cmm/CmmProcPointZ.hs b/compiler/cmm/CmmProcPointZ.hs index 1386267..c34f041 100644 --- a/compiler/cmm/CmmProcPointZ.hs +++ b/compiler/cmm/CmmProcPointZ.hs @@ -16,11 +16,11 @@ import CmmLiveZ import CmmTx import DFMonad import FiniteMap -import List (sortBy) +import Data.List (sortBy) import Maybes import MkZipCfg import MkZipCfgCmm hiding (CmmBlock, CmmGraph, CmmTopZ) -import Monad +import Control.Monad import Outputable import UniqSet import UniqSupply diff --git a/compiler/cmm/CmmSpillReload.hs b/compiler/cmm/CmmSpillReload.hs index 1f88b76..c452525 100644 --- a/compiler/cmm/CmmSpillReload.hs +++ b/compiler/cmm/CmmSpillReload.hs @@ -23,12 +23,12 @@ import ZipCfg import ZipCfgCmmRep import ZipDataflow -import Monad +import Control.Monad import Outputable hiding (empty) import qualified Outputable as PP import UniqSet -import Maybe +import Data.Maybe import Prelude hiding (zip) -- The point of this module is to insert spills and reloads to diff --git a/compiler/cmm/CmmStackLayout.hs b/compiler/cmm/CmmStackLayout.hs index be16f19..ff00de8 100644 --- a/compiler/cmm/CmmStackLayout.hs +++ b/compiler/cmm/CmmStackLayout.hs @@ -16,7 +16,7 @@ import FiniteMap import Maybes import MkZipCfg import MkZipCfgCmm hiding (CmmBlock, CmmGraph) -import Monad +import Control.Monad import Outputable import SMRep (ByteOff) import ZipCfg diff --git a/compiler/cmm/OptimizationFuel.hs b/compiler/cmm/OptimizationFuel.hs index 5e400c4..83cb84e 100644 --- a/compiler/cmm/OptimizationFuel.hs +++ b/compiler/cmm/OptimizationFuel.hs @@ -17,7 +17,7 @@ import ZipCfg --import GHC.Exts (State#) import Panic import Data.IORef -import Monad +import Control.Monad import StaticFlags (opt_Fuel) import UniqSupply diff --git a/compiler/cmm/PprCmmZ.hs b/compiler/cmm/PprCmmZ.hs index 4d8cc51..075f0e4 100644 --- a/compiler/cmm/PprCmmZ.hs +++ b/compiler/cmm/PprCmmZ.hs @@ -12,7 +12,7 @@ import qualified ZipCfgCmmRep as G import qualified ZipCfg as Z import CmmZipUtil -import Maybe +import Data.Maybe import FastString ---------------------------------------------------------------- diff --git a/compiler/cmm/ZipCfg.hs b/compiler/cmm/ZipCfg.hs index 3a5932c..376ab3e 100644 --- a/compiler/cmm/ZipCfg.hs +++ b/compiler/cmm/ZipCfg.hs @@ -45,7 +45,7 @@ import PprCmm() import Outputable hiding (empty) -import Maybe +import Data.Maybe import Prelude hiding (zip, unzip, last) ------------------------------------------------------------------------- diff --git a/compiler/cmm/ZipCfgCmmRep.hs b/compiler/cmm/ZipCfgCmmRep.hs index f99a7eb..d5496a7 100644 --- a/compiler/cmm/ZipCfgCmmRep.hs +++ b/compiler/cmm/ZipCfgCmmRep.hs @@ -36,7 +36,7 @@ import Util import BasicTypes import Maybes -import Monad +import Control.Monad import Outputable import Prelude hiding (zip, unzip, last) import SMRep (ByteOff) diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs index ce31717..c66af03 100644 --- a/compiler/codeGen/CgHpc.hs +++ b/compiler/codeGen/CgHpc.hs @@ -20,9 +20,9 @@ import ClosureInfo import FastString import HscTypes import Panic -import Char import BasicTypes +import Data.Char import Data.Word cgTickBox :: Module -> Int -> Code diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index 64d3ef1..379c4c4 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -36,7 +36,7 @@ import CLabel import StgSyn import CostCentre import Id -import Monad (foldM, liftM) +import Control.Monad import Name import Module import ListSetOps diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs index beff73e..9039d64 100644 --- a/compiler/codeGen/StgCmmCon.hs +++ b/compiler/codeGen/StgCmmCon.hs @@ -38,7 +38,7 @@ import Literal import PrelInfo import Outputable import Util ( lengthIs ) -import Char ( ord ) +import Data.Char --------------------------------------------------------------- diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index a1ba606..cd94c58 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -41,7 +41,7 @@ import FastString import PprCmm ( {- instance Outputable -} ) import Id import VarEnv -import Monad +import Control.Monad import Name import StgSyn import Outputable diff --git a/compiler/codeGen/StgCmmHpc.hs b/compiler/codeGen/StgCmmHpc.hs index ab95a66..e78acb7 100644 --- a/compiler/codeGen/StgCmmHpc.hs +++ b/compiler/codeGen/StgCmmHpc.hs @@ -19,7 +19,7 @@ import Module import CmmUtils import FastString import HscTypes -import Char +import Data.Char import StaticFlags import BasicTypes diff --git a/compiler/coreSyn/MkExternalCore.lhs b/compiler/coreSyn/MkExternalCore.lhs index fc49c2b..f6a5c51 100644 --- a/compiler/coreSyn/MkExternalCore.lhs +++ b/compiler/coreSyn/MkExternalCore.lhs @@ -28,8 +28,8 @@ import ForeignCall import DynFlags import FastString -import IO import Data.Char +import System.IO emitExternalCore :: DynFlags -> CgGuts -> IO () emitExternalCore dflags cg_guts diff --git a/compiler/coreSyn/PprExternalCore.lhs b/compiler/coreSyn/PprExternalCore.lhs index 76ef6da..e33c7a0 100644 --- a/compiler/coreSyn/PprExternalCore.lhs +++ b/compiler/coreSyn/PprExternalCore.lhs @@ -9,7 +9,7 @@ import Encoding import ExternalCore import Pretty -import Char +import Data.Char instance Show Module where showsPrec _ m = shows (pmodule m) diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index f31b2c8..dce7962 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -11,7 +11,7 @@ import HsSyn import Module import Outputable import DynFlags -import Monad +import Control.Monad import SrcLoc import ErrUtils import Name diff --git a/compiler/deSugar/MatchLit.lhs b/compiler/deSugar/MatchLit.lhs index be8ea23..5e5e81d 100644 --- a/compiler/deSugar/MatchLit.lhs +++ b/compiler/deSugar/MatchLit.lhs @@ -31,7 +31,7 @@ import PrelNames import TysWiredIn import Literal import SrcLoc -import Ratio +import Data.Ratio import Outputable import Util import FastString diff --git a/compiler/ghc.cabal.in b/compiler/ghc.cabal.in index ebf694f..67273a1 100644 --- a/compiler/ghc.cabal.in +++ b/compiler/ghc.cabal.in @@ -72,7 +72,7 @@ Library array >= 0.1 && < 0.3 Build-Depends: filepath >= 1 && < 1.2 - Build-Depends: haskell98, Cabal, hpc + Build-Depends: Cabal, hpc if os(windows) Build-Depends: Win32 else diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index c443fcf..e31a677 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -22,7 +22,7 @@ import Type import TysWiredIn import BasicTypes as Hs import ForeignCall -import List +import Data.List import Unique import MonadUtils import ErrUtils diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index 3c82ea7..d362fb4 100644 --- a/compiler/main/CodeOutput.lhs +++ b/compiler/main/CodeOutput.lhs @@ -33,10 +33,11 @@ import Outputable import Module import Maybes ( firstJust ) -import Directory ( doesFileExist ) -import Monad ( when ) -import IO +import Control.Exception +import Control.Monad +import System.Directory import System.FilePath +import System.IO \end{code} %************************************************************************ diff --git a/compiler/main/HscStats.lhs b/compiler/main/HscStats.lhs index 3bcaac4..9b5b01c 100644 --- a/compiler/main/HscStats.lhs +++ b/compiler/main/HscStats.lhs @@ -11,10 +11,11 @@ module HscStats ( ppSourceStats ) where import HsSyn import Outputable import SrcLoc -import Char import Bag import Util import RdrName + +import Data.Char \end{code} %************************************************************************ diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index 7a37b4c..f793a17 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -61,7 +61,7 @@ import Data.List import qualified System.Posix.Internals #else /* Must be Win32 */ import Foreign -import CString ( CString, peekCString ) +import Foreign.C.String #endif import System.Process ( runInteractiveProcess, getProcessExitCode ) diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index eafeec9..b7e4797 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -81,7 +81,6 @@ import State import UniqFM import Unique ( Unique, getUnique ) import UniqSupply -import List ( groupBy, sortBy ) import DynFlags #if powerpc_TARGET_ARCH import StaticFlags ( opt_Static, opt_PIC ) diff --git a/compiler/parser/HaddockLex.x b/compiler/parser/HaddockLex.x index d5e40f2..da6dbd3 100644 --- a/compiler/parser/HaddockLex.x +++ b/compiler/parser/HaddockLex.x @@ -26,7 +26,7 @@ import RdrName import SrcLoc import DynFlags -import Char +import Data.Char import Numeric import System.IO.Unsafe } diff --git a/compiler/parser/LexCore.hs b/compiler/parser/LexCore.hs index c3e1339..736450a 100644 --- a/compiler/parser/LexCore.hs +++ b/compiler/parser/LexCore.hs @@ -3,7 +3,7 @@ module LexCore where import ParserCoreUtils import Panic -import Char +import Data.Char import Numeric isNameChar :: Char -> Bool diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index e6de1e8..7f5c3a4 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -57,7 +57,6 @@ module Lexer ( import Bag import ErrUtils -import Maybe import Outputable import StringBuffer import FastString @@ -71,6 +70,7 @@ import Control.Monad import Data.Bits import Data.Char import Data.List +import Data.Maybe import Data.Map (Map) import qualified Data.Map as Map import Data.Ratio diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y index 0f2bb97..8ae9030 100644 --- a/compiler/parser/ParserCore.y +++ b/compiler/parser/ParserCore.y @@ -29,7 +29,7 @@ import TysPrim( wordPrimTyCon, intPrimTyCon, charPrimTyCon, import TyCon ( TyCon, tyConName ) import FastString import Outputable -import Char +import Data.Char import Unique #include "../HsVersions.h" diff --git a/compiler/parser/ParserCoreUtils.hs b/compiler/parser/ParserCoreUtils.hs index 124294b..2c88aa7 100644 --- a/compiler/parser/ParserCoreUtils.hs +++ b/compiler/parser/ParserCoreUtils.hs @@ -1,6 +1,6 @@ module ParserCoreUtils where -import IO +import System.IO data ParseResult a = OkP a | FailP String type P a = String -> Int -> ParseResult a diff --git a/compiler/prelude/ForeignCall.lhs b/compiler/prelude/ForeignCall.lhs index 015b28e..a6047a5 100644 --- a/compiler/prelude/ForeignCall.lhs +++ b/compiler/prelude/ForeignCall.lhs @@ -25,9 +25,10 @@ module ForeignCall ( ) where import FastString -import Char ( isAlphaNum ) import Binary import Outputable + +import Data.Char \end{code} diff --git a/compiler/prelude/PrelInfo.lhs b/compiler/prelude/PrelInfo.lhs index 96d8c8c..dbeb6de 100644 --- a/compiler/prelude/PrelInfo.lhs +++ b/compiler/prelude/PrelInfo.lhs @@ -38,7 +38,7 @@ import Type ( funTyCon ) import TyCon ( tyConName ) import Util ( isIn ) -import Array ( Array, array, (!) ) +import Data.Array \end{code} %************************************************************************ diff --git a/compiler/prelude/TysPrim.lhs b/compiler/prelude/TysPrim.lhs index 6e74fd9..af535d3 100644 --- a/compiler/prelude/TysPrim.lhs +++ b/compiler/prelude/TysPrim.lhs @@ -58,7 +58,7 @@ import StaticFlags import FastString import Outputable -import Char ( ord, chr ) +import Data.Char \end{code} %************************************************************************ diff --git a/compiler/prelude/TysWiredIn.lhs b/compiler/prelude/TysWiredIn.lhs index ed37945..83c3f45 100644 --- a/compiler/prelude/TysWiredIn.lhs +++ b/compiler/prelude/TysWiredIn.lhs @@ -86,7 +86,7 @@ import Coercion ( unsafeCoercionTyCon, symCoercionTyCon, import TypeRep ( mkArrowKinds, liftedTypeKind, ubxTupleKind ) import Unique ( incrUnique, mkTupleTyConUnique, mkTupleDataConUnique, mkPArrDataConUnique ) -import Array +import Data.Array import FastString import Outputable diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs index 0dcd421..d7865f4 100644 --- a/compiler/rename/RnBinds.lhs +++ b/compiler/rename/RnBinds.lhs @@ -42,7 +42,7 @@ import Outputable import FastString import Data.List ( partition ) import Maybes ( orElse ) -import Monad ( foldM, unless ) +import Control.Monad \end{code} -- ToDo: Put the annotations into the monad, so that they arrive in the proper diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs index 955786b..414a717 100644 --- a/compiler/rename/RnEnv.lhs +++ b/compiler/rename/RnEnv.lhs @@ -64,10 +64,10 @@ import Outputable import Util import Maybes import ListSetOps ( removeDups ) -import List ( nubBy ) import DynFlags import FastString import Control.Monad +import Data.List import qualified Data.Set as Set \end{code} diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index 12e96d8..beee037 100644 --- a/compiler/rename/RnExpr.lhs +++ b/compiler/rename/RnExpr.lhs @@ -41,15 +41,13 @@ import NameSet import RdrName import LoadIface ( loadInterfaceForName ) import UniqSet -import List ( nub ) +import Data.List import Util ( isSingleton ) import ListSetOps ( removeDups ) import Maybes ( expectJust ) import Outputable import SrcLoc import FastString - -import List ( unzip4 ) \end{code} diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index 63f29d9..c30fdd9 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -38,8 +38,8 @@ import FastString import ListSetOps import Data.List ( partition, (\\), delete ) import qualified Data.Set as Set -import IO ( openFile, IOMode(..) ) -import Monad ( when, mplus ) +import System.IO +import Control.Monad \end{code} diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index e2adb33..9f8ea7d 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -42,12 +42,12 @@ import Bag import FastString import SrcLoc import DynFlags ( DynFlag(..) ) -import Maybe ( isNothing ) import BasicTypes ( Boxity(..) ) import ListSetOps (findDupsEq) import Control.Monad +import Data.Maybe \end{code} \begin{code} diff --git a/compiler/simplCore/FloatOut.lhs b/compiler/simplCore/FloatOut.lhs index 6562c84..27a39df 100644 --- a/compiler/simplCore/FloatOut.lhs +++ b/compiler/simplCore/FloatOut.lhs @@ -19,7 +19,7 @@ import Type ( isUnLiftedType ) import SetLevels ( Level(..), LevelledExpr, LevelledBind, setLevels, ltMajLvl, ltLvl, isTopLvl ) import UniqSupply ( UniqSupply ) -import List ( partition ) +import Data.List import Outputable import FastString \end{code} diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs index bd1c920..7d2226f 100644 --- a/compiler/simplCore/SimplCore.lhs +++ b/compiler/simplCore/SimplCore.lhs @@ -61,10 +61,10 @@ import FastString import Util import UniqSupply ( UniqSupply, mkSplitUniqSupply, splitUniqSupply ) -import IO ( hPutStr, stderr ) import Outputable import Control.Monad -import List ( partition, intersperse ) +import Data.List +import System.IO import Maybes \end{code} diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index 48787dc..663f543 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -52,7 +52,7 @@ import MonadUtils import Outputable import FastString -import List( nub ) +import Data.List \end{code} diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs index 5357a53..bd70e28 100644 --- a/compiler/specialise/SpecConstr.lhs +++ b/compiler/specialise/SpecConstr.lhs @@ -38,13 +38,13 @@ import StaticFlags ( opt_SpecInlineJoinPoints ) import BasicTypes ( Activation(..) ) import Maybes ( orElse, catMaybes, isJust, isNothing ) import Util -import List ( nubBy, partition ) import UniqSupply import Outputable import FastString import UniqFM import MonadUtils import Control.Monad ( zipWithM ) +import Data.List \end{code} ----------------------------------------------------- diff --git a/compiler/typecheck/FamInst.lhs b/compiler/typecheck/FamInst.lhs index 609c0ba..45de3f0 100644 --- a/compiler/typecheck/FamInst.lhs +++ b/compiler/typecheck/FamInst.lhs @@ -20,7 +20,7 @@ import FiniteMap import FastString import Maybes -import Monad +import Control.Monad \end{code} diff --git a/compiler/typecheck/TcClassDcl.lhs b/compiler/typecheck/TcClassDcl.lhs index 18d2022..33b02de 100644 --- a/compiler/typecheck/TcClassDcl.lhs +++ b/compiler/typecheck/TcClassDcl.lhs @@ -45,12 +45,12 @@ import Util import ListSetOps import SrcLoc import Maybes -import List import BasicTypes import Bag import FastString import Control.Monad +import Data.List \end{code} diff --git a/compiler/typecheck/TcDefaults.lhs b/compiler/typecheck/TcDefaults.lhs index 74a1769..9d1f85a 100644 --- a/compiler/typecheck/TcDefaults.lhs +++ b/compiler/typecheck/TcDefaults.lhs @@ -18,7 +18,7 @@ import TcType import PrelNames import DynFlags import SrcLoc -import Maybe +import Data.Maybe import Outputable import FastString \end{code} diff --git a/compiler/typecheck/TcPat.lhs b/compiler/typecheck/TcPat.lhs index 3423196..5a54f8d 100644 --- a/compiler/typecheck/TcPat.lhs +++ b/compiler/typecheck/TcPat.lhs @@ -42,7 +42,7 @@ import ErrUtils import Util import Outputable import FastString -import Monad +import Control.Monad \end{code} diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs index 30574ae..031d4a7 100644 --- a/compiler/typecheck/TcRnDriver.lhs +++ b/compiler/typecheck/TcRnDriver.lhs @@ -25,7 +25,7 @@ module TcRnDriver ( tcRnExtCore ) where -import IO +import System.IO #ifdef GHCI import {-# SOURCE #-} TcSplice ( tcSpliceDecls ) #endif diff --git a/compiler/typecheck/TcSplice.lhs b/compiler/typecheck/TcSplice.lhs index bbb76a4..e03993a 100644 --- a/compiler/typecheck/TcSplice.lhs +++ b/compiler/typecheck/TcSplice.lhs @@ -64,7 +64,7 @@ import ErrUtils import SrcLoc import Outputable import Unique -import Maybe +import Data.Maybe import BasicTypes import Panic import FastString diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs index b03870e..bc20d3d 100644 --- a/compiler/typecheck/TcTyClsDecls.lhs +++ b/compiler/typecheck/TcTyClsDecls.lhs @@ -37,7 +37,6 @@ import VarSet import Name import Outputable import Maybes -import Monad import Unify import Util import SrcLoc @@ -49,6 +48,7 @@ import Unique ( mkBuiltinUnique ) import BasicTypes import Bag +import Control.Monad import Data.List \end{code} diff --git a/compiler/typecheck/TcTyDecls.lhs b/compiler/typecheck/TcTyDecls.lhs index 9b0e681..2366731 100644 --- a/compiler/typecheck/TcTyDecls.lhs +++ b/compiler/typecheck/TcTyDecls.lhs @@ -32,7 +32,7 @@ import BasicTypes import SrcLoc import Outputable import Util ( isSingleton ) -import List ( partition ) +import Data.List \end{code} diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 5842c63..7350f0a 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -71,12 +71,11 @@ import FastString import FastTypes import qualified Pretty import Pretty ( Doc, Mode(..) ) -import Char ( isAlpha ) import Panic +import Data.Char import Data.Word ( Word32 ) import System.IO ( Handle, stderr, stdout, hFlush ) -import Data.Char ( ord ) import System.FilePath \end{code}