From f82da1d9dca0712cdd87e3fc0ed8a2c2e2440228 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 27 Aug 2011 07:08:15 -0400 Subject: show a message if asked to get something from the web that is not there --- Remote/Web.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3