1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module GHC.Driver.Config.HsToCore
( initBangOpts
)
where
import GHC.Types.Id.Make
import GHC.Driver.DynFlags
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-interface-pragmas as the indication
, bang_opt_unbox_strict = gopt Opt_UnboxStrictFields dflags
, bang_opt_unbox_small = gopt Opt_UnboxSmallStrictFields dflags
}
|
