blob: b680dc148faa874f643c1f7fdec2cda28f84871b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module GHC.Driver.Config.Stg.Debug
( initStgDebugOpts
) where
import GHC.Stg.Debug
import GHC.Driver.Session
-- | Initialize STG pretty-printing options from DynFlags
initStgDebugOpts :: DynFlags -> StgDebugOpts
initStgDebugOpts dflags = StgDebugOpts
{ stgDebug_infoTableMap = gopt Opt_InfoTableMap dflags
, stgDebug_distinctConstructorTables = gopt Opt_DistinctConstructorTables dflags
}
|
