diff options
| -rw-r--r-- | hadrian/src/Settings/Builders/RunTest.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs index acf624c103..932b497b0f 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 <- read <$> getTestSetting TestGhcDebugged + debugged <- readBool <$> getTestSetting TestGhcDebugged keepFiles <- expr (testKeepFiles <$> userSetting defaultTestArgs) accept <- expr (testAccept <$> userSetting defaultTestArgs) @@ -104,8 +104,8 @@ runTestBuilderArgs = builder RunTest ? do , arg "-e", arg $ "config.accept_platform=" ++ show acceptPlatform , arg "-e", arg $ "config.accept_os=" ++ show acceptOS , arg "-e", arg $ "config.exeext=" ++ quote exe - , arg "-e", arg $ "config.compiler_debugged=" ++ quote (yesNo debugged) - , arg "-e", arg $ "ghc_debugged=" ++ quote (yesNo debugged) + , arg "-e", arg $ "config.compiler_debugged=" ++ + show debugged , arg "-e", arg $ asZeroOne "ghc_with_native_codegen=" withNativeCodeGen , arg "-e", arg $ "config.have_interp=" ++ show withInterpreter @@ -136,6 +136,8 @@ 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 |