summaryrefslogtreecommitdiff
path: root/Remote/Web.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remote/Web.hs')
-rw-r--r--Remote/Web.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs
index 63963c530..3fea94531 100644
--- a/Remote/Web.hs
+++ b/Remote/Web.hs
@@ -49,7 +49,9 @@ downloadKey key file = get =<< getUrls key
get [] = do
warning "no known url"
return False
- get urls = anyM (`Url.download` file) urls
+ get urls = do
+ showOutput -- make way for download progress bar
+ liftIO $ anyM (`Url.download` file) urls
uploadKey :: Key -> Annex Bool
uploadKey _ = do