import Unique
import ListSetOps
import Util
-import Maybes
import FastString
import Module
import Class
import PrimOp
import ForeignCall
-import OccName
import Maybes
import SrcLoc
import Outputable
import FastTypes
import Outputable
import Binary
-
-import GHC.Exts
import Data.Char
\end{code}
import MonadUtils
import Control.Monad
-import Control.Monad.Fix
#if __GLASGOW_HASKELL__ >= 611
import GHC.IO (unsafeDupableInterleaveIO)
#else
import Cmm
import CmmExpr
import MkZipCfgCmm hiding (CmmGraph)
-import ZipCfg -- imported for reverse conversion
import ZipCfgCmmRep -- imported for reverse conversion
import CmmZipUtil
import PprCmm()
import Constants
import FastString
import FiniteMap
-import Maybes
-import Monad
import Outputable
-import Panic
import Unique
import UniqSet
)
where
-import qualified Prelude as P
import Prelude hiding (zip, unzip, last)
import BlockId
where
import Constants
-import qualified Prelude as P
import Prelude hiding (zip, unzip, last)
import BlockId
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
import PprCmm()
import Outputable hiding (empty)
-import Panic
import Maybe
import Prelude hiding (zip, unzip, last)
import CLabel
import FastString
import ForeignCall
-import qualified ZipCfg as Z
import qualified ZipDataflow as DF
import ZipCfg
import MkZipCfg
import Monad
import Outputable
import Prelude hiding (zip, unzip, last)
-import qualified Data.List as L
import SMRep (ByteOff)
import UniqSupply
import IdInfo
import DataCon
import Name
-import OccName
import Type
import TypeRep
import TcType
import Util
import Data.Word
import Data.Bits
-
-import GHC.Exts -- For `xori`
\end{code}
-- 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,
import Type
import DataCon
import TyCon
-import Type
+-- import Type
import Util
-import DataCon
+-- import DataCon
import Var
import VarSet
import TysPrim
import Foreign
import Foreign.C
-import GHC.Exts ( Int(..), ByteArray# )
+-- import GHC.Exts ( Int(..) )
import Control.Monad ( when )
import Data.Char
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
import TyCon
import ForeignCall
import Panic
-import Outputable
+-- import Outputable
import Constants
import Foreign
import Control.Monad ( when )
import Foreign.C
import Foreign ( nullPtr )
-import GHC.Exts ( Ptr(..), unsafeCoerce# )
+import GHC.Exts ( Ptr(..) )
import DynFlags
import Outputable
import FastString
-import Panic
+-- import Panic
import Constants ( wORD_SIZE )
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
---------------------------------------------
import FastString
import Module
-import Data.List
-import Data.Maybe
-
infixl 3 &&&
\end{code}
import Serialized
import Unique
-import Control.Monad
import Data.Typeable
import Data.Maybe
import Data.Word ( Word8 )
#else
import GHC.IOBase ( IO(..) )
#endif
-import GHC.Word
import Constants
data BreakArray = BA (MutableByteArray# RealWorld)
#include "HsVersions.h"
import qualified GHC
-import GHC ( ModSummary(..), GhcMonad )
+-- import GHC ( ModSummary(..), GhcMonad )
import HsSyn ( ImportDecl(..) )
import PrelNames
import DynFlags
import Exception
import ErrUtils
-import MonadUtils ( liftIO )
+-- import MonadUtils ( liftIO )
import System.Directory
import System.FilePath
import ParserCoreUtils ( getCoreModuleName )
import SrcLoc
import FastString
-import MonadUtils
+-- import MonadUtils
-import Data.Either
+-- import Data.Either
import Exception
import Data.IORef ( readIORef )
-import GHC.Exts ( Int(..) )
+-- import GHC.Exts ( Int(..) )
import System.Directory
import System.FilePath
import System.IO
import TysPrim ( alphaTyVars )
import TyCon
import Class
-import FunDeps
+-- import FunDeps
import DataCon
import Name hiding ( varName )
-import OccName ( parenSymOcc )
+-- import OccName ( parenSymOcc )
import InstEnv ( Instance, instanceDFunId, pprInstance, pprInstanceHdr,
emptyInstEnv )
import FamInstEnv ( emptyFamInstEnv )
--import CoreSyn
import TidyPgm
import DriverPipeline
-import DriverPhases ( HscSource(..), Phase(..), isHaskellSrcFilename, startPhase )
+import DriverPhases ( Phase(..), isHaskellSrcFilename, startPhase )
import HeaderInfo
import Finder
import HscMain
import UniqSupply ( initUs_ )
import Bag ( unitBag )
import Exception
-import MonadUtils
+-- import MonadUtils
import Control.Monad
-import System.IO
+-- import System.IO
import Data.IORef
\end{code}
#include "HsVersions.h"
import Exception
import Control.Concurrent
import Data.List (sortBy)
-import Foreign.StablePtr
+-- import Foreign.StablePtr
import System.IO
-- -----------------------------------------------------------------------------
import System.Environment ( getEnv )
import Distribution.InstalledPackageInfo hiding (depends)
import Distribution.Package hiding (depends, PackageId)
-import Distribution.Text
-import Distribution.Version
import FastString
import ErrUtils ( debugTraceMsg, putMsg, Message )
import Exception
import Data.Word
import Data.Bits
-import Data.List
+-- import Data.List
-- The PowerPC has 32 integer and 32 floating point registers.
-- This is 32bit PowerPC, so Word64 is inefficient - two Word32s are much
import Data.Word
import Data.Bits
-import Data.List
+-- import Data.List
--------------------------------------------------------------------------------
-- The rest:
import StaticFlags ( opt_PIC )
import OrdList
-import qualified Outputable as O
import Outputable
import Control.Monad ( mapAndUnzipM )
import CLabel ( CLabel )
import Pretty
import Outputable ( panic )
-import qualified Outputable
import FastTypes
import FastBool
import Var ( TyVar, mkTyVar )
import Name ( Name, BuiltInSyntax(..), mkInternalName, mkWiredInName )
import OccName ( mkTyVarOccFS, mkTcOccFS )
-import TyCon ( TyCon, mkPrimTyCon, mkLiftedPrimTyCon,
- PrimRep(..) )
+import TyCon ( TyCon, mkPrimTyCon, mkLiftedPrimTyCon )
import Type
import SrcLoc
import Unique ( mkAlphaTyVarUnique, pprUnique )
import Module ( Module )
import RdrName
import Name
-import OccName ( mkTcOccFS, mkDataOccFS, mkTupleOcc, mkDataConWorkerOcc,
- tcName, dataName )
import DataCon ( DataCon, mkDataCon, dataConWorkId, dataConSourceArity )
import Var
import TyCon ( TyCon, AlgTyConRhs(DataTyCon), tyConDataCons,
import {-# SOURCE #-} TcSplice ( runAnnotation )
import FastString
#endif
-
-import Control.Monad
\end{code}
\begin{code}
import TysWiredIn
import VarSet
import TysPrim
-import Type
import SrcLoc
import Outputable
import Generics
import Class
import TyCon
-import Type
import MkId
import Id
import Name
import Var
import NameEnv
import NameSet
-import OccName
import RdrName
import Outputable
import PrelNames
import DynFlags
import ErrUtils
import Util
-import Unique
import ListSetOps
import SrcLoc
import Maybes
import SMRep
#endif
import Name
-import OccName
import TcType
import DynFlags
import Outputable
import HscTypes
import PrelInfo
import PrelNames
-import MkId
import PrimOp
import SrcLoc
import TyCon
import MonadUtils
import Outputable
import FastString
-import OccName
import Bag
-
import Data.List ( partition, intersperse )
\end{code}
import Type
import Coercion
import TyCon
-import TypeRep
import DataCon
import Class
import Var
import System.IO
import Data.IORef
+import qualified Data.Set as Set
import Control.Monad
\end{code}
#include "HsVersions.h"
import HsSyn
-import HsTypes
import HscTypes
import BuildTyCl
import TcUnify
import Var
import VarSet
import Name
-import OccName
import Outputable
import Maybes
import Monad
import Bag
import Data.List
-import Control.Monad ( mplus )
\end{code}
import Name
import NameSet
import VarEnv
-import OccName
import PrelNames
import TysWiredIn
import BasicTypes
import Outputable
import FastString
-import Data.List
import Data.IORef
\end{code}
import Class
import Var
import Name
-import OccName
import PrelNames
import Util
-import Unique
import BasicTypes
import Outputable
import FastString
-- friends:
import Var
import Name
-import OccName
import BasicTypes
import TyCon
import Class
import Foreign
import Data.Array
-import Data.Bits
-import Data.Int
-import Data.Word
import Data.IORef
import Data.Char ( ord, chr )
import Data.Typeable
import GHC.Real ( Ratio(..) )
import GHC.Exts
import GHC.Word ( Word8(..) )
-import System.IO ( openBinaryFile )
#if __GLASGOW_HASKELL__ >= 611
import GHC.IO ( IO(..) )
import Foreign
import Data.Char
import Numeric
-import Data.Bits
import GHC.Ptr ( Ptr(..) )
import GHC.Base
import GHC.Ptr
#if __GLASGOW_HASKELL__ >= 611
-import GHC.IO ( IO(..) )
+-- import GHC.IO ( IO(..) )
#else
import GHC.IOBase ( IO(..) )
#endif
printForC, printForAsm, printForUser, printForUserPartWay,
pprCode, mkCodeStyle,
showSDoc, showSDocOneLine,
- showSDocForUser, showSDocDebug, showSDocDump, showSDocDumpOneLine,
- showPpr,
+ showSDocForUser, showSDocDebug, showSDocDump, showSDocDumpOneLine,
+ showPpr,
showSDocUnqual, showsPrecSDoc,
pprInfixVar, pprPrefixVar,
pprHsChar, pprHsString, pprHsInfix, pprHsVar,
- pprFastFilePath,
+ pprFastFilePath,
-- * Controlling the style in which output is printed
BindingSite(..),
import Data.IORef ( readIORef, writeIORef )
import Data.List hiding (group)
-import qualified Data.List as List ( elem )
#ifdef DEBUG
-import qualified Data.List as List ( notElem )
+import qualified Data.List as List ( elem, notElem )
import FastTypes
#endif
import qualified ErrUtils
import Exception
-import Data.Maybe
+-- import Data.Maybe
import Numeric
import Data.Array
-import Data.Char
+-- import Data.Char
import Data.Int ( Int64 )
import Data.IORef
-import Data.List
+-- import Data.List
import System.CPUTime
import System.Environment
import System.IO
-- The GHC interface
import qualified GHC hiding (resume, runStmt)
import GHC ( LoadHowMuch(..), Target(..), TargetId(..),
- Module, ModuleName, TyThing(..), Phase,
- BreakIndex, SrcSpan, Resume, SingleStep,
+ TyThing(..), Phase,
+ BreakIndex, Resume, SingleStep,
Ghc, handleSourceError )
import PprTyThing
import DynFlags
import Packages
-import PackageConfig
+-- import PackageConfig
import UniqFM
import HscTypes ( implicitTyThings, handleFlagWarnings )
--import SystemExts
import Exception hiding (catch, block, unblock)
-import qualified Exception
-- import Control.Concurrent
-- The official GHC API
import qualified GHC
-import GHC ( DynFlags(..), HscTarget(..),
- GhcMode(..), GhcLink(..),
- LoadHowMuch(..), dopt, DynFlag(..),
+import GHC ( -- DynFlags(..), HscTarget(..),
+ -- GhcMode(..), GhcLink(..),
+ LoadHowMuch(..), -- dopt, DynFlag(..),
defaultCallbacks )
import CmdLineParser
import SrcLoc
import Util
import Panic
-import MonadUtils ( liftIO )
+-- import MonadUtils ( liftIO )
-- Standard Haskell libraries
import System.IO