always poll file

This is now only used when downloading an url, and polling is always
needed when using curl, no matter how the output is configured.
This commit is contained in:
Joey Hess 2018-04-06 23:09:19 -04:00
parent c8f2d302dc
commit bd45129c27
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -83,19 +83,11 @@ metered othermeter key getsrcfile a = withMessageState $ \st ->
Nothing -> return Nothing
Just f -> catchMaybeIO $ liftIO $ getFileSize f
{- Poll file size to display meter, but only when concurrent output or
- json progress needs the information. -}
{- Poll file size to display meter. -}
meteredFile :: FilePath -> Maybe MeterUpdate -> Key -> Annex a -> Annex a
meteredFile file combinemeterupdate key a =
withMessageState $ \s -> if needOutputMeter s
then metered combinemeterupdate key (return Nothing) $ \_ p ->
watchFileSize file p a
else a
where
needOutputMeter s = case outputType s of
JSONOutput jsonoptions -> jsonProgress jsonoptions
NormalOutput | concurrentOutputEnabled s -> True
_ -> False
metered combinemeterupdate key (return Nothing) $ \_ p ->
watchFileSize file p a
{- Progress dots. -}
showProgressDots :: Annex ()