diff options
Diffstat (limited to 'hadrian/src/Rules/Selftest.hs')
| -rw-r--r-- | hadrian/src/Rules/Selftest.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/hadrian/src/Rules/Selftest.hs b/hadrian/src/Rules/Selftest.hs index b931f85ef6..bd7e5f9544 100644 --- a/hadrian/src/Rules/Selftest.hs +++ b/hadrian/src/Rules/Selftest.hs @@ -7,7 +7,6 @@ import Test.QuickCheck import Base import Context import Oracles.ModuleFiles -import Oracles.Setting import Packages import Settings import Target @@ -102,12 +101,11 @@ testModuleName = do testPackages :: Action () testPackages = do putBuild "==== Check system configuration" - win <- windowsHost -- This depends on the @boot@ and @configure@ scripts. putBuild "==== Packages, interpretInContext, configuration flags" forM_ [Stage0 ..] $ \stage -> do pkgs <- stagePackages stage - when (win32 `elem` pkgs) . test $ win - when (unix `elem` pkgs) . test $ not win + when (win32 `elem` pkgs) . test $ windowsHost + when (unix `elem` pkgs) . test $ not windowsHost test $ pkgs == nubOrd pkgs testWay :: Action () |