Fix formatting of --info's "Debug on" field
authorBen Gamari <ben@smart-cactus.org>
Fri, 5 Jul 2019 15:31:32 +0000 (11:31 -0400)
committerBen Gamari <ben@well-typed.com>
Fri, 19 Jul 2019 00:55:11 +0000 (20:55 -0400)
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.

compiler/main/DynFlags.hs
hadrian/src/Settings/Builders/RunTest.hs

index 1f7de17..448e914 100644 (file)
@@ -5693,7 +5693,7 @@ compilerInfo dflags
        ("GHC Dynamic",                 showBool dynamicGhc),
        -- Whether or not GHC was compiled using -prof
        ("GHC Profiled",                showBool rtsIsProfiled),
-       ("Debug on",                    show debugIsOn),
+       ("Debug on",                    showBool debugIsOn),
        ("LibDir",                      topDir dflags),
        -- The path of the global package database used by GHC
        ("Global Package DB",           systemPackageConfig dflags)
index ff35d95..4b4d815 100644 (file)
@@ -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