diff options
author | 2014-12-08 19:27:40 -0400 | |
---|---|---|
committer | 2014-12-08 19:27:40 -0400 | |
commit | 14187ab680981d66418cdae3b1f03e4262aba8da (patch) | |
tree | 970dac78e05d5b037a32c43a0d251e6daeccb20f | |
parent | 8687a25e317aab13999610400b67cbad483c4553 (diff) |
unmangled mangled urls from the log before passing to external special remote
-rw-r--r-- | Remote/External.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index b6928a827..62671755c 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -223,7 +223,8 @@ handleRequest' lck external req mp responsehandler handleRemoteRequest (SETURLMISSING key url) = setUrlMissing (externalUUID external) key url handleRemoteRequest (GETURLS key prefix) = do - mapM_ (send . VALUE) =<< getUrlsWithPrefix key prefix + mapM_ (send . VALUE . fst . getDownloader) + =<< getUrlsWithPrefix key prefix send (VALUE "") -- end of list handleRemoteRequest (DEBUG msg) = liftIO $ debugM "external" msg handleRemoteRequest (VERSION _) = |