diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-03 20:08:25 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-03 20:08:25 -0400 |
| commit | 0caa99abe56bc5b4e3754af697bc520b18df53c6 (patch) | |
| tree | 40ed51fcde895c92cb6cdc14c59eea44172752b0 | |
| parent | 422258a5ea23b885e31702f98f16923d205a20de (diff) | |
reall disable progress displays for --quiet
| -rw-r--r-- | Messages/Progress.hs | 8 |
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 |