From da5ccf0ee79fc690a7e69c0b644f0226dde07e49 Mon Sep 17 00:00:00 2001 From: Dominik Peteler Date: Mon, 2 May 2022 20:50:31 +0200 Subject: Avoid global compiler state for `GHC.Core.Opt.WorkWrap` Progress towards #17957 --- compiler/GHC/Driver/Config/Core/Opt/WorkWrap.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 compiler/GHC/Driver/Config/Core/Opt/WorkWrap.hs (limited to 'compiler/GHC/Driver') diff --git a/compiler/GHC/Driver/Config/Core/Opt/WorkWrap.hs b/compiler/GHC/Driver/Config/Core/Opt/WorkWrap.hs new file mode 100644 index 0000000000..3524ea9bbd --- /dev/null +++ b/compiler/GHC/Driver/Config/Core/Opt/WorkWrap.hs @@ -0,0 +1,21 @@ +module GHC.Driver.Config.Core.Opt.WorkWrap + ( initWorkWrapOpts + ) where + +import GHC.Prelude () + +import GHC.Driver.Config (initSimpleOpts) +import GHC.Driver.Session + +import GHC.Core.FamInstEnv +import GHC.Core.Opt.WorkWrap +import GHC.Unit.Types + +initWorkWrapOpts :: Module -> DynFlags -> FamInstEnvs -> WwOpts +initWorkWrapOpts this_mod dflags fam_envs = MkWwOpts + { wo_fam_envs = fam_envs + , wo_simple_opts = initSimpleOpts dflags + , wo_cpr_anal = gopt Opt_CprAnal dflags + , wo_module = this_mod + , wo_unlift_strict = gopt Opt_WorkerWrapperUnlift dflags + } -- cgit v1.2.1