diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2022-02-08 17:31:45 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-26 06:15:30 -0400 |
| commit | d0e4355af8c936a3ba831ecf6afa62b06475069f (patch) | |
| tree | 39c52eac08cef667a74285b303cfca85bebeb480 /compiler/GHC/Driver/Config | |
| parent | afde42761f509a93a70e8997bd8bbf38e7b70209 (diff) | |
| download | haskell-d0e4355af8c936a3ba831ecf6afa62b06475069f.tar.gz | |
Factor out `initArityOps` to `GHC.Driver.Config.*` module
We want `DynFlags` only mentioned in `GHC.Driver`.
Diffstat (limited to 'compiler/GHC/Driver/Config')
| -rw-r--r-- | compiler/GHC/Driver/Config/Core/Opt/Arity.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Config/Core/Opt/Arity.hs b/compiler/GHC/Driver/Config/Core/Opt/Arity.hs new file mode 100644 index 0000000000..c1ffac1270 --- /dev/null +++ b/compiler/GHC/Driver/Config/Core/Opt/Arity.hs @@ -0,0 +1,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 + } |