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 :: DynFlags -> BangOpts
initBangOpts DynFlags
dflags = BangOpts
{ bang_opt_strict_data :: Bool
bang_opt_strict_data = Extension -> DynFlags -> Bool
xopt Extension
LangExt.StrictData DynFlags
dflags
, bang_opt_unbox_disable :: Bool
bang_opt_unbox_disable = GeneralFlag -> DynFlags -> Bool
gopt GeneralFlag
Opt_OmitInterfacePragmas DynFlags
dflags
, bang_opt_unbox_strict :: Bool
bang_opt_unbox_strict = GeneralFlag -> DynFlags -> Bool
gopt GeneralFlag
Opt_UnboxStrictFields DynFlags
dflags
, bang_opt_unbox_small :: Bool
bang_opt_unbox_small = GeneralFlag -> DynFlags -> Bool
gopt GeneralFlag
Opt_UnboxSmallStrictFields DynFlags
dflags
}