Only --hide-successes when --quiet is used

haskell · Nov 20, 2024 · 226ebee · 226ebee
1 parent 70a64d8
commit 226ebee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cabal-validate/src/Cli.hs b/cabal-validate/src/Cli.hs
@@ -241,8 +241,8 @@ resolveOpts opts = do
           else "cabal.validate.project"
 
       tastyArgs' =
-        "--hide-successes"
-          : maybe
+        (optional (rawVerbosity opts <= Quiet) "--hide-successes")
+          ++ maybe
             []
             (\tastyPattern -> ["--pattern", tastyPattern])
             (rawTastyPattern opts)