mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

reall disable progress displays for --quiet

Browse source
This commit is contained in:
Joey Hess 2015-04-03 20:08:25 -04:00
parent 3146d24e29
commit d7f66a90af
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Messages/Progress.hs
View file

@ -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 module Messages.Progress where
import Common import Common
@ -59,6 +66,7 @@ mkProgressHandler meter = ProgressHandler
<*> pure meter <*> pure meter
where where
quietmode = withOutputType $ \t -> return $ case t of quietmode = withOutputType $ \t -> return $ case t of
QuietOutput -> True
ProgressOutput -> True ProgressOutput -> True
_ -> False _ -> False
stderrhandler emitter h = unlessM (hIsEOF h) $ do stderrhandler emitter h = unlessM (hIsEOF h) $ do