summaryrefslogtreecommitdiff
path: root/Remote/Web.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remote/Web.hs')
-rw-r--r--Remote/Web.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs
index 93e5770f0..4d6348e59 100644
--- a/Remote/Web.hs
+++ b/Remote/Web.hs
@@ -11,6 +11,7 @@ import Common.Annex
import Types.Remote
import qualified Git
import qualified Git.Construct
+import Annex.Content
import Config
import Logs.Web
import qualified Utility.Url as Url
@@ -55,7 +56,7 @@ downloadKey key file = get =<< getUrls key
return False
get urls = do
showOutput -- make way for download progress bar
- liftIO $ anyM (`Url.download` file) urls
+ downloadUrl urls file
uploadKey :: Key -> Annex Bool
uploadKey _ = do