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
  }