mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add missing case for unknown size with normal output

Browse source 
This was lost in previous change, causing a crash in that case.
This commit is contained in:
Joey Hess 2016-10-05 15:10:24 -04:00
parent a747373b40
commit 672e53bded
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Messages/Progress.hs
View file

@ -33,6 +33,7 @@ metered :: Maybe MeterUpdate -> Key -> (MeterUpdate -> Annex a) -> Annex a
metered othermeter key a = withMessageState $ go (keySize key) metered othermeter key a = withMessageState $ go (keySize key)
where where
go _ (MessageState { outputType = QuietOutput }) = nometer go _ (MessageState { outputType = QuietOutput }) = nometer
go Nothing (MessageState { outputType = NormalOutput }) = nometer
go (Just size) (MessageState { outputType = NormalOutput, concurrentOutputEnabled = False }) = do go (Just size) (MessageState { outputType = NormalOutput, concurrentOutputEnabled = False }) = do
showOutput showOutput
(progress, meter) <- mkmeter size (progress, meter) <- mkmeter size