module GHC.Driver.Config.Core.Opt.Arity ( initArityOpts ) where import GHC.Prelude () import GHC.Driver.DynFlags import GHC.Core.Opt.Arity initArityOpts :: DynFlags -> ArityOpts initArityOpts :: DynFlags -> ArityOpts initArityOpts DynFlags dflags = ArityOpts { ao_ped_bot :: Bool ao_ped_bot = GeneralFlag -> DynFlags -> Bool gopt GeneralFlag Opt_PedanticBottoms DynFlags dflags , ao_dicts_cheap :: Bool ao_dicts_cheap = GeneralFlag -> DynFlags -> Bool gopt GeneralFlag Opt_DictsCheap DynFlags dflags }