diff options
Diffstat (limited to 'hadrian/src/Settings/Builders/RunTest.hs')
| -rw-r--r-- | hadrian/src/Settings/Builders/RunTest.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs index b096f05a45..a0a245458b 100644 --- a/hadrian/src/Settings/Builders/RunTest.hs +++ b/hadrian/src/Settings/Builders/RunTest.hs @@ -101,8 +101,10 @@ inTreeCompilerArgs stg = do unregisterised <- flag GhcUnregisterised tables_next_to_code <- flag TablesNextToCode targetWithSMP <- targetSupportsSMP - debugAssertions <- ($ succStage stg) . ghcDebugAssertions <$> flavour - profiled <- ghcProfiled <$> flavour <*> pure stg + + let ghcStage = succStage stg + debugAssertions <- ghcDebugAssertions <$> flavour <*> pure ghcStage + profiled <- ghcProfiled <$> flavour <*> pure ghcStage os <- setting HostOs arch <- setting TargetArch |