diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-03-27 18:49:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-03-27 18:49:03 -0400 |
| commit | 4cadfec3a00ece05576fbe289c4639e13b16ad52 (patch) | |
| tree | 52567cf8b047ca042c773d3d33155c151fc9ce5f /Logs/Web.hs | |
| parent | 46407825b3b01de93fa0101cad84d719d9dc0653 (diff) | |
Fix GETURLS in external special remote protocol to strip downloader prefix from logged url info before checking for the specified prefix.
This doesn't change what GETURLS returns, but only whether it matches
any prefix that the external special remote asked for.
Diffstat (limited to 'Logs/Web.hs')
| -rw-r--r-- | Logs/Web.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Logs/Web.hs b/Logs/Web.hs index b2935f1a0..ed2f575bd 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -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 |