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

    import GHC.Stg.Lift.Config

    import GHC.Driver.DynFlags

    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
        }