summaryrefslogtreecommitdiff
path: root/Remote/Web.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-08-27 07:08:15 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-08-27 07:08:15 -0400
commitf82da1d9dca0712cdd87e3fc0ed8a2c2e2440228 (patch)
treeaa660739c5b15e60f56584e21b71f5f215291e0a /Remote/Web.hs
parentec9291e9eaeb277d0984d58a9023b84b1fc47441 (diff)
show a message if asked to get something from the web that is not there
Diffstat (limited to 'Remote/Web.hs')
-rw-r--r--Remote/Web.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs
index 5bc6a204b..0e4b75767 100644
--- a/Remote/Web.hs
+++ b/Remote/Web.hs
@@ -86,8 +86,12 @@ setUrl key url status = do
logChange g key webUUID (if null us then InfoMissing else InfoPresent)
downloadKey :: Key -> FilePath -> Annex Bool
-downloadKey key file = iter =<< getUrls key
+downloadKey key file = get =<< getUrls key
where
+ get [] = do
+ warning "no known url"
+ return False
+ get a = iter a
iter [] = return False
iter (url:urls) = do
ok <- Url.download url file