diff options
Diffstat (limited to 'compiler/GHC/Driver/Config')
| -rw-r--r-- | compiler/GHC/Driver/Config/HsToCore.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Config/HsToCore.hs b/compiler/GHC/Driver/Config/HsToCore.hs new file mode 100644 index 0000000000..ef8d6347e2 --- /dev/null +++ b/compiler/GHC/Driver/Config/HsToCore.hs @@ -0,0 +1,19 @@ +module GHC.Driver.Config.HsToCore + ( initBangOpts + ) +where + +import GHC.Types.Id.Make +import GHC.Driver.Session +import qualified GHC.LanguageExtensions as LangExt + +initBangOpts :: DynFlags -> BangOpts +initBangOpts dflags = BangOpts + { bang_opt_strict_data = xopt LangExt.StrictData dflags + , bang_opt_unbox_disable = gopt Opt_OmitInterfacePragmas dflags + -- Don't unbox if we aren't optimising; rather arbitrarily, + -- we use -fomit-iface-pragmas as the indication + , bang_opt_unbox_strict = gopt Opt_UnboxStrictFields dflags + , bang_opt_unbox_small = gopt Opt_UnboxSmallStrictFields dflags + } + |