module GHC.Driver.Config.CoreToStg where import GHC.Driver.Config.Stg.Debug import GHC.Driver.Session import GHC.CoreToStg initCoreToStgOpts :: DynFlags -> CoreToStgOpts initCoreToStgOpts :: DynFlags -> CoreToStgOpts initCoreToStgOpts DynFlags dflags = CoreToStgOpts { coreToStg_platform :: Platform coreToStg_platform = DynFlags -> Platform targetPlatform DynFlags dflags , coreToStg_ways :: Ways coreToStg_ways = DynFlags -> Ways ways DynFlags dflags , coreToStg_AutoSccsOnIndividualCafs :: Bool coreToStg_AutoSccsOnIndividualCafs = GeneralFlag -> DynFlags -> Bool gopt GeneralFlag Opt_AutoSccsOnIndividualCafs DynFlags dflags , coreToStg_InfoTableMap :: Bool coreToStg_InfoTableMap = GeneralFlag -> DynFlags -> Bool gopt GeneralFlag Opt_InfoTableMap DynFlags dflags , coreToStg_ExternalDynamicRefs :: Bool coreToStg_ExternalDynamicRefs = GeneralFlag -> DynFlags -> Bool gopt GeneralFlag Opt_ExternalDynamicRefs DynFlags dflags , coreToStg_stgDebugOpts :: StgDebugOpts coreToStg_stgDebugOpts = DynFlags -> StgDebugOpts initStgDebugOpts DynFlags dflags }