use built-in progress meters for git when in parallel mode

This commit is contained in:
Joey Hess 2015-04-10 15:15:01 -04:00
parent 56eabe9b81
commit f8e700ed06
5 changed files with 22 additions and 9 deletions

View file

@ -17,7 +17,7 @@ handleMessage json normal = withOutputType go
where
go NormalOutput = liftIO normal
go QuietOutput = q
go ProgressOutput = q
go (ParallelOutput _) = q
go JSONOutput = liftIO $ flushed json
q :: Monad m => m ()