settings <- traverse sequence $

         [ ("unlit command", ("$topdir/../bin/" <>) <$> expr (programName (ctx { Context.package = unlit, Context.stage = predStage stage })))

         -- Hard-coded as Cabal queries these to determine way support and we

         -- need to always advertise all ways when bootstrapping.

         -- The settings file is generated at install time when installing a bindist.

 import Packages

 import Settings

 import Settings.Builders.Common (wayCcArgs)

 import qualified GHC.Toolchain.Library as Lib

 import GHC.Toolchain.Target

         cross = flag CrossCompiling

         haveCurses = any (/= "") <$> traverse (`buildSetting` stage) [ CursesIncludeDir, CursesLibDir ]

         compilerStageOption f = buildingCompilerStage' . f =<< expr flavour

     cursesIncludeDir <- staged (buildSetting CursesIncludeDir)

     cursesLibraryDir <- staged (buildSetting CursesLibDir)

     ffiIncludeDir  <- staged (buildSetting FfiIncludeDir)

             --    on the host and must rely on external interpreter to load

             --    target code, otherwise enable for stage2 since that runs on

             --    the target and can use target's own ghci object linker

             , orM [ notM cross, haveCurses ]  `cabalFlag` "terminfo"

             , arg "-build-tool-depends"

             , staged (buildFlag UseLibzstd) `cabalFlag` "with-libzstd"

              , compilerStageOption ghcDebugAssertions ? arg "-DDEBUG" ]

           , builder (Cabal Flags) ? mconcat

             , ifM stage0

                   -- We build a threaded stage 1 if the bootstrapping compiler

                   -- supports it.

           --

             builder (Cabal Setup) ? cabalExtraDirs ffiIncludeDir ffiLibraryDir

           , builder (Cabal Flags) ? mconcat

             ]

           ]

         , package unix ? builder (Cabal Flags) ? arg "+os-string"

 module Settings.Program

   ( programContext

   , ghcWithInterpreter

 import Base

 import Context

 import Packages

 import GHC.Platform.ArchOS

 -- TODO: there is duplication and inconsistency between this and

 -- Rules.Program.getProgramContexts. There should only be one way to

 -- Also checks whether the target supports GHCi.

 ghcWithInterpreter :: Stage -> Action Bool

 ghcWithInterpreter stage = do

     goodOs <- anyTargetOs stage [ OSMinGW32, OSLinux, OSSolaris2

                           , OSFreeBSD, OSDragonFly, OSNetBSD, OSOpenBSD

                           , OSDarwin, OSKFreeBSD

     -- fall back on dynamic linking:

     dynamicGhcProgs <- askDynGhcPrograms stage