aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/CompileTest.hs2
-rw-r--r--tests/GhcSession.hs4
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/CompileTest.hs b/tests/CompileTest.hs
index bae5ad0..4ad5804 100644
--- a/tests/CompileTest.hs
+++ b/tests/CompileTest.hs
@@ -58,7 +58,7 @@ main = do
let ?progs = defaultPrograms
let ?cprogs = defaultCompPrograms
let ?opts = defaultCompileOptions { oVerbose = True }
- let ?verbose = True
+ let ?verbose = \level -> case level of 1 -> True; _ -> False
args <- getArgs
case args of
diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs
index 38ff7c8..aad5be2 100644
--- a/tests/GhcSession.hs
+++ b/tests/GhcSession.hs
@@ -194,12 +194,12 @@ runTest ps2@(psdImpl -> ProjSetupImpl{..}) topdir projdir cabal_file = do
runWithCwd :: FilePath -> String -> [String] -> IO ()
runWithCwd cwd x xs = do
- let ?verbose = True
+ let ?verbose = (==1)
callProcessStderr (Just cwd) x xs
run :: String -> [String] -> IO ()
run x xs = do
- let ?verbose = True
+ let ?verbose = (==1)
callProcessStderr Nothing x xs
test :: ProjSetup2 pt -> FilePath -> FilePath -> IO [Bool]