From 654bafea5bd4a1ce82af440c90f5fa38ac532503 Mon Sep 17 00:00:00 2001
From: Douglas Wilson <douglas.wilson@gmail.com>
Date: Sun, 19 Dec 2021 11:41:59 +0000
Subject: hadrian: Enrich flavours to build profiled/debugged/threaded ghcs per
 stage

---
 hadrian/src/Settings/Builders/Ghc.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'hadrian/src/Settings/Builders/Ghc.hs')

diff --git a/hadrian/src/Settings/Builders/Ghc.hs b/hadrian/src/Settings/Builders/Ghc.hs
index 9dd481d7fe..47ac5f0ed9 100644
--- a/hadrian/src/Settings/Builders/Ghc.hs
+++ b/hadrian/src/Settings/Builders/Ghc.hs
@@ -115,7 +115,7 @@ ghcLinkArgs = builder (Ghc LinkHs) ? do
     useSystemFfi <- expr (flag UseSystemFfi)
     buildPath <- getBuildPath
     libffiName' <- libffiName
-    debugged <- ghcDebugged <$> expr flavour
+    debugged <- ghcDebugged <$> expr flavour <*> getStage
 
     osxTarget <- expr isOsxTarget
     winTarget <- expr isWinTarget
-- 
cgit v1.2.1