diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-07-05 11:31:32 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2019-07-18 20:55:11 -0400 |
| commit | d238d3062a9858fef667c6fbf80605b8209a937f (patch) | |
| tree | cd3909a52e44d04f3013c07dd0a0cbb4c9c6d005 /hadrian | |
| parent | b9e9d8c97cc6f3f96466969a48a03f7be5999de2 (diff) | |
| download | haskell-d238d3062a9858fef667c6fbf80605b8209a937f.tar.gz | |
Fix formatting of --info's "Debug on" field
As noted in #16914, the value `True` was used instead of `YES` here, in
contrast to the other boolean fields emitted by `--info`. This confused
the testsuite driver and broke the `ghc_debugged` testsuite predicate.
Diffstat (limited to 'hadrian')
| -rw-r--r-- | hadrian/src/Settings/Builders/RunTest.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs index ff35d95737..4b4d815a2c 100644 --- a/hadrian/src/Settings/Builders/RunTest.hs +++ b/hadrian/src/Settings/Builders/RunTest.hs @@ -68,7 +68,7 @@ runTestBuilderArgs = builder RunTest ? do withInterpreter <- getBooleanSetting TestGhcWithInterpreter unregisterised <- getBooleanSetting TestGhcUnregisterised withSMP <- getBooleanSetting TestGhcWithSMP - debugged <- readBool <$> getTestSetting TestGhcDebugged + debugged <- getBooleanSetting TestGhcDebugged keepFiles <- expr (testKeepFiles <$> userSetting defaultTestArgs) accept <- expr (testAccept <$> userSetting defaultTestArgs) @@ -140,8 +140,6 @@ runTestBuilderArgs = builder RunTest ? do , getTestArgs -- User-provided arguments from command line. ] - where readBool x = read x :: Bool - -- | Command line arguments for running GHC's test script. getTestArgs :: Args getTestArgs = do |