From 56bb48210a0e0241216e0dcebee26ec479c73c5d Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Wed, 21 Aug 2019 03:30:57 +0200 Subject: ghc-session: Fix verbosity functions --- tests/GhcSession.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index 45fe82e..e8eeaa4 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -298,12 +298,12 @@ runTest modProgs ps2@(psdImpl -> ProjSetupImpl{..}) topdir projdir cabal_file runWithCwd :: FilePath -> String -> [String] -> IO () runWithCwd cwd x xs = do - let ?verbose = (==1) + let ?verbose = (<=1) callProcessStderr (Just cwd) [] x xs run :: String -> [String] -> IO () run x xs = do - let ?verbose = (==1) + let ?verbose = (<=1) callProcessStderr Nothing [] x xs test -- cgit v1.2.3