diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-04-10 15:15:01 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-04-10 15:15:21 -0400 |
commit | 112ca28651e4e799ffe0d61933746f7f208dd140 (patch) | |
tree | 34e4696a4d773f536a1491761497f816aab367a1 /Messages/Progress.hs | |
parent | bc43b03e9d8b55c1edf2e89f072c53ebec06c1ca (diff) |
use built-in progress meters for git when in parallel mode
Diffstat (limited to 'Messages/Progress.hs')
-rw-r--r-- | Messages/Progress.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index c563ffa6f..70ed96c5a 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -26,6 +26,14 @@ metered combinemeterupdate key a = go (keySize key) go (Just size) = meteredBytes combinemeterupdate size a go _ = a (const noop) +{- Use when the progress meter is only desired for parallel + - mode; as when a command's own progress output is preferred. -} +parallelMetered :: Maybe MeterUpdate -> Key -> (MeterUpdate -> Annex a) -> Annex a +parallelMetered combinemeterupdate key a = withOutputType go + where + go (ParallelOutput _) = metered combinemeterupdate key a + go _ = a (fromMaybe (const noop) combinemeterupdate) + {- Shows a progress meter while performing an action on a given number - of bytes. -} meteredBytes :: Maybe MeterUpdate -> Integer -> (MeterUpdate -> Annex a) -> Annex a @@ -99,5 +107,5 @@ mkStderrRelayer = do mkStderrEmitter :: Annex (String -> IO ()) mkStderrEmitter = withOutputType go where - go ProgressOutput = return $ \s -> hPutStrLn stderr ("E: " ++ s) + go (ParallelOutput _) = return $ \s -> hPutStrLn stderr ("E: " ++ s) go _ = return (hPutStrLn stderr) |