Factor out `initArityOps` to `GHC.Driver.Config.*` module

We want `DynFlags` only mentioned in `GHC.Driver`.

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]
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

+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
+  }

compiler/ghc.cabal.in

@@ -389,6 +389,7 @@ Library
         GHC.Driver.Config.Cmm.Parser
         GHC.Driver.Config.CmmToAsm
         GHC.Driver.Config.CmmToLlvm
+        GHC.Driver.Config.Core.Opt.Arity
         GHC.Driver.Config.Core.Opt.LiberateCase
         GHC.Driver.Config.Core.Opt.WorkWrap
         GHC.Driver.Config.Diagnostic