{-# OPTIONS_GHC -Wno-missing-fields #-}
module GHC.DynFlags
( baseDynFlags,
)
where
import Config
import DynFlags
import Fingerprint
import GHC.Platform
import ToolSettings
fakeSettings :: Settings
fakeSettings =
Settings
{ sGhcNameVersion =
GhcNameVersion
{ ghcNameVersion_programName = "ghc",
ghcNameVersion_projectVersion = cProjectVersion
},
sFileSettings = FileSettings {},
sTargetPlatform =
Platform
{ platformWordSize = PW8,
platformMini =
PlatformMini
{ platformMini_arch = ArchUnknown,
platformMini_os = OSUnknown
},
platformUnregisterised = True
},
sPlatformMisc = PlatformMisc {},
sPlatformConstants =
PlatformConstants {pc_DYNAMIC_BY_DEFAULT = False, pc_WORD_SIZE = 8},
sToolSettings =
ToolSettings
{ toolSettings_opt_P_fingerprint = fingerprint0,
toolSettings_pgm_F = ""
}
}
fakeLlvmConfig :: LlvmConfig
fakeLlvmConfig = LlvmConfig [] []
baseDynFlags :: DynFlags
baseDynFlags = defaultDynFlags fakeSettings fakeLlvmConfig