make --json-progress work for url downloads

This commit is contained in:
Joey Hess 2016-09-09 16:15:39 -04:00
parent 312ef4dfae
commit d4fbc3b460
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 16 additions and 12 deletions

View file

@ -902,7 +902,7 @@ saveState nocommit = doSideAction $ do
{- Downloads content from any of a list of urls. -}
downloadUrl :: Key -> MeterUpdate -> [Url.URLString] -> FilePath -> Annex Bool
downloadUrl k p urls file = concurrentMeteredFile file (Just p) k $
downloadUrl k p urls file = meteredFile file (Just p) k $
go =<< annexWebDownloadCommand <$> Annex.getGitConfig
where
go Nothing = do