module GHC.Driver.Config.Stg.Debug
( initStgDebugOpts
) where
import GHC.Stg.Debug
import GHC.Driver.DynFlags
initStgDebugOpts :: DynFlags -> StgDebugOpts
initStgDebugOpts :: DynFlags -> StgDebugOpts
initStgDebugOpts DynFlags
dflags = StgDebugOpts
{ stgDebug_infoTableMap :: Bool
stgDebug_infoTableMap = GeneralFlag -> DynFlags -> Bool
gopt GeneralFlag
Opt_InfoTableMap DynFlags
dflags
, stgDebug_distinctConstructorTables :: Bool
stgDebug_distinctConstructorTables = GeneralFlag -> DynFlags -> Bool
gopt GeneralFlag
Opt_DistinctConstructorTables DynFlags
dflags
}