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 :: 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
  }