compiler/GHC/Driver/Config/Stg/Lift.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module GHC.Driver.Config.Stg.Lift
  ( initStgLiftConfig
  ) where

import GHC.Stg.Lift.Config

import GHC.Driver.Session

initStgLiftConfig :: DynFlags -> StgLiftConfig
initStgLiftConfig dflags = StgLiftConfig
    { c_targetProfile      = targetProfile dflags
    , c_liftLamsRecArgs    = liftLamsRecArgs dflags
    , c_liftLamsNonRecArgs = liftLamsNonRecArgs dflags
    , c_liftLamsKnown      = liftLamsKnown dflags
    }