reall disable progress displays for --quiet

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