blob: 6f044afdf46c1a37175c2ea220fa32ebe2297afa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
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 dflags = StgPprOpts
{ stgSccEnabled = sccProfilingEnabled dflags
}
|
