diff options
Diffstat (limited to 'compiler/GHC/Driver/Config/Core/Opt/Arity.hs')
| -rw-r--r-- | compiler/GHC/Driver/Config/Core/Opt/Arity.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Config/Core/Opt/Arity.hs b/compiler/GHC/Driver/Config/Core/Opt/Arity.hs index c1ffac1270..2f2173d0c7 100644 --- a/compiler/GHC/Driver/Config/Core/Opt/Arity.hs +++ b/compiler/GHC/Driver/Config/Core/Opt/Arity.hs @@ -2,14 +2,16 @@ module GHC.Driver.Config.Core.Opt.Arity ( initArityOpts ) where -import GHC.Prelude () +import GHC.Prelude (not) import GHC.Driver.Session import GHC.Core.Opt.Arity +import GHC.Types.Basic (StateHackFlag(..)) initArityOpts :: DynFlags -> ArityOpts initArityOpts dflags = ArityOpts { ao_ped_bot = gopt Opt_PedanticBottoms dflags , ao_dicts_cheap = gopt Opt_DictsCheap dflags + , ao_state_hack = StateHackFlag (not (gopt Opt_G_NoStateHack dflags)) } |