diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-19 16:24:24 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-28 14:38:02 -0500 |
| commit | 2e44165f52aadd325677fd2cb1522c4247a42de7 (patch) | |
| tree | 4d15a331fc2616b09d6bfbac6a854fac82245632 /hadrian | |
| parent | b3b4d3c1b1fbe1fa3a04d8233ef78dcd12299753 (diff) | |
| download | haskell-2e44165f52aadd325677fd2cb1522c4247a42de7.tar.gz | |
Reduce default test verbosity
Diffstat (limited to 'hadrian')
| -rw-r--r-- | hadrian/src/Settings/Builders/RunTest.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs index 757e7963d9..8fcc0aaee2 100644 --- a/hadrian/src/Settings/Builders/RunTest.hs +++ b/hadrian/src/Settings/Builders/RunTest.hs @@ -180,8 +180,15 @@ getTestArgs = do Just filepath -> Just $ "--metrics-file=" ++ filepath Nothing -> Nothing configArgs = concat [["-e", configArg] | configArg <- testConfigs args] + globalTestVerbosity = case globalVerbosity of + Silent -> "0" + Error -> "1" + Warn -> "1" + Info -> "2" + Verbose -> "4" + Diagnostic -> "5" verbosityArg = case testVerbosity args of - Nothing -> Just $ "--verbose=" ++ show (fromEnum globalVerbosity) + Nothing -> Just $ "--verbose=" ++ globalTestVerbosity Just verbosity -> Just $ "--verbose=" ++ verbosity wayArgs = map ("--way=" ++) (testWays args) compilerArg = ["--config", "compiler=" ++ show (compiler)] |