From 31533776d448c111e322118f50555ad0b3894f93 Mon Sep 17 00:00:00 2001
From: Moritz Angermann <moritz@stable-haskell.org>
Date: Tue, 9 Sep 2025 12:28:01 +0900
Subject: [PATCH] Add note about stage2

---
 compiler/Setup.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/Setup.hs b/compiler/Setup.hs
index c112aaba549d..fcbe0b25b1ad 100644
--- a/compiler/Setup.hs
+++ b/compiler/Setup.hs
@@ -119,6 +119,8 @@ generateConfigHs :: String -- ^ ghc's cabal-generated unit-id, which matches its
                  -> String -- ^ ghc-internal's cabal-generated unit-id, which matches its package-id/key
                  -> [(String,String)] -> String
 generateConfigHs cProjectUnitId cGhcInternalUnitId settings = either error id $ do
+    -- cStage = 2 is clearly wrong. As we compile the stage 1 compiler with this
+    -- file as well!
     let getSetting' = getSetting $ (("cStage","2"):) settings
     buildPlatform  <- getSetting' "cBuildPlatformString" "Host platform"
     hostPlatform   <- getSetting' "cHostPlatformString" "Target platform"