compiler/GHC/Driver/Config/Core/Opt/Arity.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module GHC.Driver.Config.Core.Opt.Arity
  ( initArityOpts
  ) where

import GHC.Prelude ()

import GHC.Driver.Session

import GHC.Core.Opt.Arity

initArityOpts :: DynFlags -> ArityOpts
initArityOpts dflags = ArityOpts
  { ao_ped_bot = gopt Opt_PedanticBottoms dflags
  , ao_dicts_cheap = gopt Opt_DictsCheap dflags
  }