1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module GHC.Driver.Config.CoreToStg where
import GHC.Driver.Config.Stg.Debug
import GHC.Driver.DynFlags
import GHC.CoreToStg
initCoreToStgOpts :: DynFlags -> CoreToStgOpts
initCoreToStgOpts dflags = CoreToStgOpts
{ coreToStg_platform = targetPlatform dflags
, coreToStg_ways = ways dflags
, coreToStg_AutoSccsOnIndividualCafs = gopt Opt_AutoSccsOnIndividualCafs dflags
, coreToStg_InfoTableMap = gopt Opt_InfoTableMap dflags
, coreToStg_ExternalDynamicRefs = gopt Opt_ExternalDynamicRefs dflags
, coreToStg_stgDebugOpts = initStgDebugOpts dflags
}
|
