Add log-level to verbosity conditional

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]