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

import GHC.Stg.Lift.Config

import GHC.Driver.Session

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