diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-10-05 15:10:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-10-05 15:10:24 -0400 |
| commit | ecfa0fc66a7c907b1177efa978b97bccd6ae7ade (patch) | |
| tree | 1d4bc4bd2caaae9a98ac8a6b36f03ebbe6134c64 /Messages | |
| parent | 6666de1f505b1929f80992fe953f739c6d02d9c1 (diff) | |
add missing case for unknown size with normal output
This was lost in previous change, causing a crash in that case.
Diffstat (limited to 'Messages')
| -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 |