    module GHC.Driver.Config.CoreToStg where

    import GHC.Driver.Config.Stg.Debug
    import GHC.Driver.DynFlags

    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
      }