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

remove redundant meter

Browse source 
This was stacked with another one, resulting in an extra newline
This commit is contained in:
Joey Hess 2018-04-13 01:23:09 -04:00
parent b4a2bcaf4c
commit 4cda021acc
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/AddUrl.hs
View file

@ -261,8 +261,7 @@ downloadWeb o url urlinfo file =
go =<< downloadWith' downloader urlkey webUUID url (AssociatedFile (Just file)) go =<< downloadWith' downloader urlkey webUUID url (AssociatedFile (Just file))
where where
urlkey = addSizeUrlKey urlinfo $ Backend.URL.fromUrl url Nothing urlkey = addSizeUrlKey urlinfo $ Backend.URL.fromUrl url Nothing
downloader f p = metered (Just p) urlkey (pure Nothing) $ downloader f p = downloadUrl urlkey p [url] f
\_ p' -> downloadUrl urlkey p' [url] f
go Nothing = return Nothing go Nothing = return Nothing
-- If we downloaded a html file, try to use youtube-dl to -- If we downloaded a html file, try to use youtube-dl to
-- extract embedded media. -- extract embedded media.