    module GHC.Driver.Config.Stg.Ppr
      ( initStgPprOpts
      ) where

    import GHC.Stg.Syntax

    import GHC.Driver.Session

    -- | Initialize STG pretty-printing options from DynFlags
    initStgPprOpts :: DynFlags -> StgPprOpts
    initStgPprOpts :: DynFlags -> StgPprOpts
    initStgPprOpts DynFlags
    dflags = StgPprOpts
       { stgSccEnabled :: Bool
    stgSccEnabled = DynFlags -> Bool
    sccProfilingEnabled DynFlags
    dflags
       }