diff options
| -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) } |