diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-21 03:30:57 +0200 |
|---|---|---|
| committer | Daniel Gröber (dxld) <dxld@darkboxed.org> | 2019-09-17 17:48:26 +0200 |
| commit | 56bb48210a0e0241216e0dcebee26ec479c73c5d (patch) | |
| tree | b7a4f2520908886c57fd7ea2d1bf88d47d9c16bd | |
| parent | eb9f5be6a47935a3b61e936de5bfc07fc5024b04 (diff) | |
ghc-session: Fix verbosity functions
| -rw-r--r-- | tests/GhcSession.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |