import Data.Char ( isUpper )
import System.IO ( hPutStrLn, stderr )
-#ifdef GHCI
-import Breakpoints ( BkptHandler )
-import Module ( ModuleName )
-#endif
-- -----------------------------------------------------------------------------
-- DynFlags
| Opt_SplitObjs
| Opt_StgStats
| Opt_HideAllPackages
-#if defined(GHCI) && defined(DEBUGGER)
- | Opt_Debugging
-#endif
| Opt_PrintBindResult
| Opt_Haddock
| Opt_Hpc_No_Auto
-- message output
log_action :: Severity -> SrcSpan -> PprStyle -> Message -> IO ()
-
-#ifdef GHCI
- -- breakpoint handling
- ,bkptHandler :: Maybe (BkptHandler Module)
-#endif
}
data HscTarget
packageFlags = [],
pkgDatabase = Nothing,
pkgState = panic "no package state yet: call GHC.setSessionDynFlags",
-#ifdef GHCI
- bkptHandler = Nothing,
-#endif
flags = [
Opt_ReadUserPackageConf,
( "excess-precision", Opt_ExcessPrecision ),
( "asm-mangling", Opt_DoAsmMangling ),
( "print-bind-result", Opt_PrintBindResult ),
-#if defined(GHCI) && defined(DEBUGGER)
- ( "debugging", Opt_Debugging),
-#endif
( "force-recomp", Opt_ForceRecomp ),
( "hpc-no-auto", Opt_Hpc_No_Auto )
]