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 }