getBuildTarget = getTargetConfig buildTargetFile

 -- | Get the host target configuration through 'getTargetConfig'

   -- MP: If we are not cross compiling then we should use the target file in order to

   -- build things for the host, in particular we want to use the configured values for the

   -- target for building the RTS (ie are we using Libffi for adjustors, and the wordsize)

   if (Toolchain.targetPlatformTriple ht) == (Toolchain.targetPlatformTriple tt)

     then return tt

     else return ht

 -- | Get the target target configuration through 'getTargetConfig'

 getTargetTarget :: Action Toolchain.Target

 queryBuildTarget :: (Toolchain.Target -> a) -> Action a

 queryBuildTarget f = f <$> getBuildTarget

 newtype KeyValue = KeyValue (FilePath, String)

     deriving (Binary, Eq, Hashable, NFData, Show)

 bashPath :: Action FilePath

 bashPath = setting BourneShell

 isWinHost = anyHostOs [OSMinGW32]

 isWinTarget :: Stage -> Action Bool

 isArmTarget stage = queryTargetTarget stage (isARM . archOS_arch . tgtArchOs)

 -- | Check whether the host OS setting matches one of the given strings.

 -- | Check whether the target architecture setting matches one of the given

 -- strings.

 -- For example, we want to build RTS with stage1 for the host target as we

 -- produce a host executable with stage1 (which cross-compiles to stage2).

 targetStage :: Stage -> Action Target

 targetStage _ = getTargetTarget

 isHostStage :: Stage -> Bool

     -- phony "binary-dist-dir-stage3" $ buildBinDistDir root targetBindist

     let buildBinDist compressor = do

           win_target <- isWinTarget Stage2

           when (win_target && win_host) (error "normal binary-dist does not work for windows targets, use `reloc-binary-dist-*` target instead.")

           buildBinDistX "binary-dist-dir" "bindist" compressor

     , interpolateSetting "ProjectPatchLevel2" ProjectPatchLevel2

     , interpolateSetting "ProjectGitCommitId" ProjectGitCommitId

     , interpolateVar "TargetPlatform" $ getTarget targetPlatformTriple

     , interpolateVar "TargetPlatform_CPP" $ cppify <$> getTarget targetPlatformTriple

     , interpolateVar "TargetHasLibm" $ yesNo <$> interp (staged (buildFlag TargetHasLibm))

     , interpolateVar "TargetPlatform" $ getTarget targetPlatformTriple

     , interpolateVar "BuildPlatform"  $ interp $ queryBuild targetPlatformTriple

     , interpolateVar "TargetWordBigEndian" $ getTarget isBigEndian

     , interpolateVar "TargetWordSize" $ getTarget wordSize

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

     let chooseSetting x y = case stage of { Stage0 {} -> x; _ -> y }

     let queryTarget f = f <$> expr (targetStage stage)

     -- Not right for stage3

     hostPlatform <- queryTarget targetPlatformTriple

     trackGenerateHs

     cProjectName        <- getSetting ProjectName

     stage <- getStage

     let chooseHostQuery = case stage of

             Stage0 {} -> queryHost

     return $ unlines

         [ "module GHC.Platform.Host where"

         , ""

          -> Action ()

 runHLint includeDirs defines dir = do

   threads <- shakeThreads <$> getShakeOptions

   let hlintYaml = dir </> ".hlint.yaml"

       defines' = hostArch : defines

       cmdLine = unwords $

 -- Be careful querying values from the HOST and BUILD targets until the targets

 -- are only generated by ghc-toolchain:

 -- See Note [The dummy values in the HOST target description]

 queryBuild f = expr $ queryBuildTarget f

 queryArch, queryOS, queryVendor :: Target -> String

 queryArch = stringEncodeArch . archOS_arch . tgtArchOs

     ccPath  <- getBuilderPath $ Cc CompileC stage

     gmpDir  <- staged (buildSetting GmpIncludeDir)

     top     <- expr topDirectory

     tArch   <- queryTarget stage queryArch

     tOs     <- queryTarget stage queryOS

     version <- case stage of

     debugged            <- ghcDebugged        <$> flavour <*> pure ghcStage

     profiled            <- ghcProfiled        <$> flavour <*> pure ghcStage

     arch        <- queryTargetTarget ghcStage queryArch

     let codegen_arches = ["x86_64", "i386", "powerpc", "powerpc64", "powerpc64le", "aarch64", "wasm32", "riscv64", "loongarch64"]

     let withNativeCodeGen