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

Fix GETURLS in external special remote protocol to strip downloader prefix from logged url info before checking for the specified prefix.

Browse source 
This doesn't change what GETURLS returns, but only whether it matches
any prefix that the external special remote asked for.
This commit is contained in:
Joey Hess 2015-03-27 18:49:03 -04:00
parent e980c56f7f
commit f0195b2a43
4 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Logs/Web.hs
View file

@ -50,7 +50,9 @@ getUrls key = do
else return us
getUrlsWithPrefix :: Key -> String -> Annex [URLString]
getUrlsWithPrefix key prefix = filter (prefix `isPrefixOf`) <$> getUrls key
getUrlsWithPrefix key prefix = filter (prefix `isPrefixOf`)
. map (fst . getDownloader)
<$> getUrls key
setUrlPresent :: UUID -> Key -> URLString -> Annex ()
setUrlPresent uuid key url = do