mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

factor out untilTrue

Browse source
This commit is contained in:
Joey Hess 2011-12-02 16:10:52 -04:00
parent fb68a7881f
commit e19dc85547
4 changed files with 29 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Remote/Web.hs
View file

@ -71,8 +71,6 @@ checkKey key = do
then return $ Right False
else return . Right =<< checkKey' us
checkKey' :: [URLString] -> Annex Bool
checkKey' [] = return False
checkKey' (u:us) = do
checkKey' us = untilTrue us $ \u -> do
showAction $ "checking " ++ u
e <- liftIO $ Url.exists u
if e then return e else checkKey' us
liftIO $ Url.exists u