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
   }