module GHC.Util.DynFlags (initGlobalDynFlags, baseDynFlags) where
import GHC.Driver.Session
import GHC.LanguageExtensions.Type
import Data.List.Extra
import Language.Haskell.GhclibParserEx.GHC.Settings.Config
baseDynFlags :: DynFlags
baseDynFlags :: DynFlags
baseDynFlags =
let enable :: [Extension]
enable = [Extension
TemplateHaskellQuotes]
in (DynFlags -> Extension -> DynFlags)
-> DynFlags -> [Extension] -> DynFlags
forall (t :: * -> *) b a.
Foldable t =>
(b -> a -> b) -> b -> t a -> b
foldl' DynFlags -> Extension -> DynFlags
xopt_set (Settings -> LlvmConfig -> DynFlags
defaultDynFlags Settings
fakeSettings LlvmConfig
fakeLlvmConfig) [Extension]
enable
initGlobalDynFlags :: IO ()
initGlobalDynFlags :: IO ()
initGlobalDynFlags = DynFlags -> IO ()
setUnsafeGlobalDynFlags DynFlags
baseDynFlags