summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2022-05-16 14:18:22 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-05-19 04:59:03 -0400
commit02d1633466733f154753753c8d9e94062d334b1a (patch)
treefb954f9c83651f636a9df2db518451bcc78e3710
parent209d7c699225f5e9b8acbf9e50711165a37a91ed (diff)
downloadhaskell-02d1633466733f154753753c8d9e94062d334b1a.tar.gz
hadrian: Don't attempt to build dynamic profiling libraries
We only support building static profiling libraries, the transformer was requesting things like a dynamic, threaded, debug, profiling RTS, which we have never produced nor distributed. Fixes #21567
-rw-r--r--hadrian/src/Flavour.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/hadrian/src/Flavour.hs b/hadrian/src/Flavour.hs
index 3b5944c6c3..46fdd9abaf 100644
--- a/hadrian/src/Flavour.hs
+++ b/hadrian/src/Flavour.hs
@@ -203,7 +203,7 @@ enableProfiledGhc :: Flavour -> Flavour
enableProfiledGhc flavour =
enableLateCCS flavour { rtsWays = do
ws <- rtsWays flavour
- pure $ (Set.map (\w -> w <> profiling) ws) <> ws
+ pure $ (Set.map (\w -> if wayUnit Dynamic w then w else w <> profiling) ws) <> ws
, libraryWays = (Set.singleton profiling <>) <$> (libraryWays flavour)
, ghcProfiled = (>= Stage1)
}