sTargetPlatform =

         genericPlatform,

       sPlatformMisc = PlatformMisc {},

     }

 fakeDynFlags :: DynFlags

 setBaseUnitId :: String -> DynP ()

 -----------------------------------------------------------------------------

        ("Project Patch Level",         cProjectPatchLevel),

        ("Project Patch Level1",        cProjectPatchLevel1),

        ("Project Patch Level2",        cProjectPatchLevel2),

        ("Booter version",              cBooterVersion),

        ("Stage",                       cStage),

        ("Build platform",              cBuildPlatformString),

   , sRawTarget         :: Target

   }

 -- | Settings for other executables GHC calls.

 --

   ghcWithInterpreter <- getBooleanSetting "Use interpreter"

   baseUnitId <- getSetting_raw "base unit-id"

   -- LibDir is optional. If not set, derive it from topDir. This allows

   -- bindists to work without explicitly setting LibDir, but gives us the

     , sUnitSettings = UnitSettings

       {

         unitSettings_baseUnitId = stringToUnitId baseUnitId

       }

     , sToolSettings = ToolSettings

 AC_SUBST(BaseUnitId)

 # We get caught by

 #     http://savannah.gnu.org/bugs/index.php?1516

 #     $(eval ...) inside conditionals causes errors

 	@echo ',("RTS ways", "$(GhcRTSWays)")' >> $@

 	@echo ',("Relative Global Package DB", "package.conf.d")' >> $@

 	@echo ',("base unit-id", "$(BaseUnitId)")' >> $@

 	@echo "]" >> $@

 lib/targets/default.target : config.mk default.target

 GhcUnregisterised     = @Unregisterised@

 EnableDistroToolchain = @EnableDistroToolchain@

 BaseUnitId            = @BaseUnitId@

 # The THREADED_RTS requires `BaseReg` to be in a register and the

 # `GhcUnregisterised` mode doesn't allow that.

     let bindistSettings = bindistFilesDir -/- "lib" -/- "settings"

         bindistContext = vanillaContext library_stage compiler

     bindistSettingsContent <- interpretInContext bindistContext $

     writeFileAtomic bindistSettings bindistSettingsContent

     copyDirectory rtsIncludeDir         bindistFilesDir

 import Development.Shake.FilePath

 import qualified Data.Set as Set

 import Base

 import qualified Context

 import Expression

 import Hadrian.Oracles.TextFile (lookupStageBuildConfig)

                       then root -/- stageString stage' -/- "lib"

                       else prefix

                 relPkgDb = makeRelativeNoSysLink libTopDir pkgDb

         (prefix -/- "targets" -/- "default.target") %> \out -> go (show <$> expr (targetStage (succStage stage))) out

   where

     , interpolateVar "Unregisterised" $ yesNo <$> getTarget tgtUnregisterised

     , interpolateVar "UseLibdw" $ fmap yesNo $ interp $ staged (fmap (isJust . tgtRTSWithLibdw) . targetStage)

     , interpolateVar "UseLibffiForAdjustors" $ yesNo <$> getTarget tgtUseLibffiForAdjustors

     , interpolateVar "GhcWithSMP" $ yesNo <$> targetSupportsSMP Stage2

     , interpolateVar "TargetPlatformFull" (setting TargetPlatformFull)

     , interpolateVar "BuildPlatformFull" (setting BuildPlatformFull)

   where

     interp = interpretInContext (semiEmptyTarget Stage2)

     getTarget = interp . queryTarget Stage2

 -- | Given a 'String' replace characters '.' and '-' by underscores ('_') so that

 -- the resulting 'String' is a valid C preprocessor identifier.

 -- "package.conf.d"). Callers supply the correct relative path. For bindists

 -- the layout is known statically; for in-tree builds callers compute it. For

 -- bindists, we omit @LibDir@ so it defaults to @topDir@ at runtime.

     ctx <- getContext

     stage <- getStage

     -- For cross compilers, LibDir points to the succeeding stage's lib dir

     -- (which contains the target architecture's libraries). For non-cross,

           , ("RTS ways", unwords . map show . Set.toList <$> getRtsWays)

           , ("Relative Global Package DB", pure rel_pkg_db)

           , ("base unit-id", pure base_unit_id)

           ]

           ++ ([("LibDir", pure rel_lib_topDir) | includeLibDir])

     let showTuple (k, v) = "(" ++ show k ++ ", " ++ show v ++ ")"

     -- unit-id in both situations.

     cProjectUnitId <- expr . (`pkgUnitId` compiler) =<< getStage

     return $ unlines

         [ "module GHC.Settings.Config"

         , "  ( module GHC.Version"

         , "  , cBooterVersion"

         , "  , cStage"

         , "  , cProjectUnitId"

         , "  ) where"

         , ""

         , "import GHC.Prelude.Basic"

         , ""

         , "cProjectUnitId :: String"

         , "cProjectUnitId = " ++ show cProjectUnitId

         ]

   where

     stageString (Stage0 InTreeLibs) = "1"