diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/Simplify/Utils.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/Simplify/Utils.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/compiler/GHC/Core/Opt/Simplify/Utils.hs b/compiler/GHC/Core/Opt/Simplify/Utils.hs index 92a2a318d7..ac85ebb623 100644 --- a/compiler/GHC/Core/Opt/Simplify/Utils.hs +++ b/compiler/GHC/Core/Opt/Simplify/Utils.hs @@ -63,6 +63,8 @@ import GHC.Core.DataCon ( dataConWorkId, isNullaryRepDataCon ) import GHC.Core.Multiplicity import GHC.Core.Opt.ConstantFold +import GHC.Driver.Config.Core.Opt.Arity + import GHC.Types.Name import GHC.Types.Id import GHC.Types.Id.Info @@ -1825,12 +1827,6 @@ tryEtaExpandRhs env bndr rhs ABot {} -> True -} -initArityOpts :: DynFlags -> ArityOpts -initArityOpts dflags = ArityOpts - { ao_ped_bot = gopt Opt_PedanticBottoms dflags - , ao_dicts_cheap = gopt Opt_DictsCheap dflags - } - {- Note [Eta-expanding at let bindings] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |