summaryrefslogtreecommitdiff
path: root/Messages
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-10-05 15:10:24 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-10-05 15:10:24 -0400
commitecfa0fc66a7c907b1177efa978b97bccd6ae7ade (patch)
tree1d4bc4bd2caaae9a98ac8a6b36f03ebbe6134c64 /Messages
parent6666de1f505b1929f80992fe953f739c6d02d9c1 (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.hs1
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