#ifdef GHCI

import Name( Name )

#endif

import CoreSyn

import PprCore

import CoreUtils

import CoreLint		( lintCoreBindings )

import HscTypes

import Module

import DynFlags

import StaticFlags	

import Rules            ( RuleBase )

import BasicTypes       ( CompilerPhase(..) )

import Annotations

import Id		( Id )

import RegClass

import Reg

import UniqFM

import FastTypes

        -> (reg -> FastInt)

        -> UniqFM reg

32% of total compile time and 42% of total alloc when compiling SHA1.lhs from darcs.

Therefore the UniqFM is made non-abstract and we use custom fold.

MS 2010/04

When converting UniqFM to use Data.IntMap, the fold cannot use UniqFM internal

the folding if the count gets greater or equal to maxCount. We thus convert

UniqFM to a (lazy) list, do the fold and stops if necessary, which was

import CoreSyn

import CoreFVs

import CoreUtils        ( exprIsTrivial, isDefaultAlt, isExpandableApp )

import Id

import Name( localiseName )

import BasicTypes

import VarSet

import VarEnv

import Var

import Demand           ( argOneShots, argsOneShots )

import Maybes           ( orElse )

import Digraph          ( SCC(..), stronglyConnCompFromEdgedVerticesR )

import Unique

import UniqFM

import HscTypes

import Inst

import InstEnv 

import FamInst 

import FamInstEnv

import qualified TcRnMonad as TcM

import qualified TcMType as TcM

import qualified TcEnv as TcM 

       ( checkWellStaged, topIdLvl, tcGetDefaultTys )

import Kind

import TcType

import DynFlags

import qualified X86.CodeGen

import qualified X86.Regs

import qualified X86.Instr

import qualified X86.Ppr

import qualified SPARC.CodeGen

import qualified SPARC.Regs

import qualified SPARC.Instr

import qualified SPARC.Ppr

import qualified SPARC.ShortcutJump

import qualified PPC.RegInfo

import qualified PPC.Instr

import qualified PPC.Ppr

import PackageConfig

import DynFlags

import Config           ( cProjectVersion )

import Name             ( Name, nameModule_maybe )

import UniqFM

import Module

import Util

import Panic

import Outputable

import Maybes

import System.Environment ( getEnv )

import Distribution.InstalledPackageInfo

import Distribution.InstalledPackageInfo.Binary

import Binary

import Module           ( Module )

import Name

import Outputable

import Serialized

import UniqFM

import Unique

import Control.Monad

import Data.Maybe

import Data.Typeable

import Data.Word        ( Word8 )

-- | A collection of annotations

-- Can't use a type synonym or we hit bug #2412 due to source import

newtype AnnEnv = MkAnnEnv (UniqFM [Serialized])

import CodeGen.Platform (callerSaves)

import Cmm

import CmmOpt

import BlockId

import CmmLive

import CmmUtils

import Hoopl

import DynFlags

import UniqFM

import PprCmm ()

import Data.List (partition)

import qualified Data.Set as Set

Various types used during typechecking, please see TcRnMonad as well for

operations on these types. You probably want to import it, instead of this

        ErrCtxt, RecFieldEnv(..),

        ImportAvails(..), emptyImportAvails, plusImportAvails,

import HsSyn

import HscTypes

import TcEvidence

import Type

import Annotations

import InstEnv

import FamInstEnv

import IOEnv

import RdrName

import Name

import Llvm

import LlvmCodeGen.Regs

import CLabel

import CodeGen.Platform ( activeStgRegs )

import DynFlags

import FastString

import Cmm

import qualified Outputable as Outp

import qualified Pretty as Prt

import Platform

import UniqFM

import Unique

import BufWrite   ( BufHandle )

import CoreSyn

import Coercion

import Literal

import Var

import UniqFM

import Unique( Unique )

import FastString(FastString)

import qualified Data.Map    as Map

import qualified Data.IntMap as IntMap

import VarEnv

import NameEnv

import Outputable

import Control.Monad( (>=>) )

import StgCmmExtCode

import CmmCallConv

import StgCmmProf

import StgCmmHeap

import StgCmmMonad hiding ( getCode, getCodeR, emitLabel, emit, emitStore

                          , emitAssign, emitOutOfLine, withUpdFrameOff

                          , getUpdFrameOff )

import qualified StgCmmMonad as F

import StgCmmUtils

import StgCmmForeign

import StgCmmExpr

import StgCmmClosure

import StgCmmLayout     hiding (ArgRep(..))

import StgCmmTicky

import {-# SOURCE #-} Name (Name)

import FastString

import Panic

import UniqFM

import FastMutInt

import Fingerprint

import BasicTypes

import Foreign

import Data.Array

import Data.ByteString (ByteString)

import qualified Data.ByteString.Internal as BS

import qualified Data.ByteString.Unsafe   as BS

import Data.IORef

        ClsInst(..), DFunInstType, pprInstance, pprInstanceHdr, pprInstances, 

        instanceHead, instanceSig, mkLocalInstance, mkImportedInstance,

import Class

import Var

import VarSet

import Name

import Unify

import Outputable

import ErrUtils

import BasicTypes

import UniqFM

import Util

import Id

import FastString

import LoadIface        ( loadInterfaceForName, loadSrcInterface )

import IfaceEnv

import HsSyn

import RdrName

import HscTypes

import TcEnv            ( tcLookupDataCon, tcLookupField, isBrackStage )

import TcRnMonad

import Id               ( isRecordSelector )

import Name

import NameSet

import NameEnv

import Module

import UniqFM

import DataCon          ( dataConFieldLabels, dataConTyCon )

import RegAlloc.Linear.State

import RegAlloc.Linear.Base

import RegAlloc.Linear.StackMap

import RegAlloc.Linear.FreeRegs

import RegAlloc.Linear.Stats

import RegAlloc.Linear.JoinToTargets

import qualified RegAlloc.Linear.PPC.FreeRegs    as PPC

import qualified RegAlloc.Linear.SPARC.FreeRegs  as SPARC

import qualified RegAlloc.Linear.X86.FreeRegs    as X86

import qualified RegAlloc.Linear.X86_64.FreeRegs as X86_64

import TargetReg

import RegAlloc.Liveness

import Instruction

import Reg

import NameSet

import UniqSet

import UniqFM

import DataCon

import TyCon

import TypeRep

import Type

import PrelNames

import Digraph

--

classifyTyCons :: UniqFM Bool                  -- ^type constructor vectorisation status

        newFunctionName,

        newImport,

import qualified StgCmmMonad as F

import StgCmmMonad (FCode, newUnique)

import Cmm

import CLabel

import MkGraph

-- import BasicTypes

import BlockId

import Module

import UniqFM

import Unique

import Prelude hiding ( mod, id, mapM )

import GHC

--import Packages

import HscTypes         ( isBootSummary )

import Digraph          ( flattenSCCs )

import DriverPhases     ( isHaskellSrcFilename )

import HscTypes         ( msHsFilePath )

import Name             ( getOccString )

--import ErrUtils         ( printBagOfErrors )

import Panic            ( panic )

import DynFlags         ( defaultFatalMessager, defaultFlushOut )

import Bag

import Exception

import FastString

-- GHCi

import qualified GhciMonad ( args, runStmt )

import GhciMonad hiding ( args, runStmt )

import GhciTags

import Debugger

-- The GHC interface

import DynFlags

import GhcMonad ( modifySession )

import qualified GHC

import GHC ( LoadHowMuch(..), Target(..),  TargetId(..), InteractiveImport(..),

             TyThing(..), Phase, BreakIndex, Resume, SingleStep, Ghc,

             handleSourceError )

import HsImpExp

import HscTypes ( tyThingParent_maybe, handleFlagWarnings, getSafeMode, hsc_IC,