diff options
-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 |