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
  }