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 }