diff options
Diffstat (limited to 'Remote/Web.hs')
| -rw-r--r-- | Remote/Web.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index 0e4b75767..3695bb1ab 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -24,6 +24,7 @@ import Config import PresenceLog import LocationLog import Locations +import Utility import qualified Utility.Url as Url type URLString = String @@ -91,11 +92,7 @@ downloadKey key file = get =<< getUrls key get [] = do warning "no known url" return False - get a = iter a - iter [] = return False - iter (url:urls) = do - ok <- Url.download url file - if ok then return ok else iter urls + get urls = anyM (`Url.download` file) urls uploadKey :: Key -> Annex Bool uploadKey _ = do |