module GHC.Util.DynFlags (baseDynFlags) where
import DynFlags
import GHC.LanguageExtensions.Type
import Data.List.Extra
import Language.Haskell.GhclibParserEx.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