diff options
| -rw-r--r-- | hadrian/src/Rules/Test.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/hadrian/src/Rules/Test.hs b/hadrian/src/Rules/Test.hs index de73390831..bbce4db71e 100644 --- a/hadrian/src/Rules/Test.hs +++ b/hadrian/src/Rules/Test.hs @@ -104,9 +104,13 @@ timeoutProgBuilder = do makeExecutable (root -/- timeoutPath) needIservBins :: Action () -needIservBins = +needIservBins = do + rtsways <- interpretInContext (vanillaContext Stage1 ghc) getRtsWays need =<< traverse programPath - [ Context Stage1 iserv w | w <- [vanilla, profiling, dynamic] ] + [ Context Stage1 iserv w + | w <- [vanilla, profiling, dynamic] + , w `elem` rtsways + ] needTestBuilders :: Action () needTestBuilders = do |