diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-05-16 14:18:22 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-05-16 14:19:36 +0100 |
commit | 086634fc979467457ae522b5ca23ec126a0596f7 (patch) | |
tree | aa9b8e4d67847aa4fab945238e5108aca01d133c | |
parent | 93153aab656f173ac36e0c3c2b4835caaa55669b (diff) | |
download | haskell-086634fc979467457ae522b5ca23ec126a0596f7.tar.gz |
hadrian: Don't attempt to build dynamic profiling librarieswip/t21567
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.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hadrian/src/Flavour.hs b/hadrian/src/Flavour.hs index f63adc1ae0..a50d079594 100644 --- a/hadrian/src/Flavour.hs +++ b/hadrian/src/Flavour.hs @@ -190,7 +190,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) } |