    module GHC.Driver.Config.Stg.Debug
      ( initStgDebugOpts
      ) where

    import GHC.Stg.Debug

    import GHC.Driver.DynFlags

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