diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-27 07:08:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-27 07:08:15 -0400 |
| commit | f82da1d9dca0712cdd87e3fc0ed8a2c2e2440228 (patch) | |
| tree | aa660739c5b15e60f56584e21b71f5f215291e0a /Remote/Web.hs | |
| parent | ec9291e9eaeb277d0984d58a9023b84b1fc47441 (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.hs | 6 |
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 |