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

short-circuit as soon as enough remotes are verified to have a file

Browse source
This commit is contained in:
Joey Hess 2010-10-25 21:15:29 -04:00
parent eea140c90d
commit 68e2687661
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Backend/File.hs
View file

@ -111,11 +111,14 @@ checkRemoveKey key = do
then return True then return True
else notEnoughCopies need have bad else notEnoughCopies need have bad
findcopies need have (r:rs) bad = do findcopies need have (r:rs) bad = do
haskey <- Remotes.inAnnex r key if (have >= need)
case (haskey) of then return True
Right True -> findcopies need (have+1) rs bad else do
Right False -> findcopies need have rs bad haskey <- Remotes.inAnnex r key
Left _ -> findcopies need have rs (r:bad) case (haskey) of
Right True -> findcopies need (have+1) rs bad
Right False -> findcopies need have rs bad
Left _ -> findcopies need have rs (r:bad)
notEnoughCopies need have bad = do notEnoughCopies need have bad = do
unsafe unsafe
showLongNote $ showLongNote $