module GHC.Driver.Config.Core.Opt.LiberateCase
( initLiberateCaseOpts
) where
import GHC.Driver.DynFlags
import GHC.Core.Opt.LiberateCase ( LibCaseOpts(..) )
initLiberateCaseOpts :: DynFlags -> LibCaseOpts
initLiberateCaseOpts :: DynFlags -> LibCaseOpts
initLiberateCaseOpts DynFlags
dflags = LibCaseOpts
{ lco_threshold :: Maybe Int
lco_threshold = DynFlags -> Maybe Int
liberateCaseThreshold DynFlags
dflags
, lco_unfolding_opts :: UnfoldingOpts
lco_unfolding_opts = DynFlags -> UnfoldingOpts
unfoldingOpts DynFlags
dflags
}