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 /Remote/External.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 'Remote/External.hs')
| -rw-r--r-- | Remote/External.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index 7dd1736e4..39531998d 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -228,8 +228,7 @@ handleRequest' lck external req mp responsehandler handleRemoteRequest (SETURIMISSING key uri) = withurl (SETURLMISSING key) uri handleRemoteRequest (GETURLS key prefix) = do - mapM_ (send . VALUE . fst . getDownloader) - =<< getUrlsWithPrefix key prefix + mapM_ (send . VALUE) =<< getUrlsWithPrefix key prefix send (VALUE "") -- end of list handleRemoteRequest (DEBUG msg) = liftIO $ debugM "external" msg handleRemoteRequest (VERSION _) = |