summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-04-03 20:08:25 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-04-03 20:08:25 -0400
commit0caa99abe56bc5b4e3754af697bc520b18df53c6 (patch)
tree40ed51fcde895c92cb6cdc14c59eea44172752b0
parent422258a5ea23b885e31702f98f16923d205a20de (diff)
reall disable progress displays for --quiet
-rw-r--r--Messages/Progress.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs
index c9a7cfda8..177af61f9 100644
--- a/Messages/Progress.hs
+++ b/Messages/Progress.hs
@@ -1,3 +1,10 @@
+{- git-annex progress output
+ -
+ - Copyright 2010-2015 Joey Hess <id@joeyh.name>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
module Messages.Progress where
import Common
@@ -59,6 +66,7 @@ mkProgressHandler meter = ProgressHandler
<*> pure meter
where
quietmode = withOutputType $ \t -> return $ case t of
+ QuietOutput -> True
ProgressOutput -> True
_ -> False
stderrhandler emitter h = unlessM (hIsEOF h) $ do