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

unmangled mangled urls from the log before passing to external special remote

Browse source
This commit is contained in:
Joey Hess 2014-12-08 19:27:40 -04:00
parent 2f6150b48d
commit aafb121068
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/External.hs
View file

@ -223,7 +223,8 @@ handleRequest' lck external req mp responsehandler
handleRemoteRequest (SETURLMISSING key url) = handleRemoteRequest (SETURLMISSING key url) =
setUrlMissing (externalUUID external) key url setUrlMissing (externalUUID external) key url
handleRemoteRequest (GETURLS key prefix) = do handleRemoteRequest (GETURLS key prefix) = do
mapM_ (send . VALUE) =<< getUrlsWithPrefix key prefix mapM_ (send . VALUE . fst . getDownloader)
=<< getUrlsWithPrefix key prefix
send (VALUE "") -- end of list send (VALUE "") -- end of list
handleRemoteRequest (DEBUG msg) = liftIO $ debugM "external" msg handleRemoteRequest (DEBUG msg) = liftIO $ debugM "external" msg
handleRemoteRequest (VERSION _) = handleRemoteRequest (VERSION _) =