diff options
Diffstat (limited to 'Messages/Progress.hs')
| -rw-r--r-- | Messages/Progress.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 06f2531be..c4f55de50 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -33,6 +33,7 @@ metered :: Maybe MeterUpdate -> Key -> (MeterUpdate -> Annex a) -> Annex a metered othermeter key a = withMessageState $ go (keySize key) where go _ (MessageState { outputType = QuietOutput }) = nometer + go Nothing (MessageState { outputType = NormalOutput }) = nometer go (Just size) (MessageState { outputType = NormalOutput, concurrentOutputEnabled = False }) = do showOutput (progress, meter) <- mkmeter size |