From bf9e458fd74a9d187be6929c212e46b341b05c8c Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Wed, 30 Jan 2019 20:59:12 +0100 Subject: Add log-level to verbosity conditional --- tests/CompileTest.hs | 2 +- tests/GhcSession.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'tests') 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] -- cgit v1.2.3