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

fsck: Fix warning about not enough copies of a file, when locations are known, but are not available in currently configured remotes.

Browse source
This commit is contained in:
Joey Hess 2010-11-28 17:26:15 -04:00
parent abf084f628
commit 949e4abc56
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Backend/File.hs
View file

@ -163,9 +163,9 @@ checkKey a key numcopies = do
checkKeyNumCopies :: Key -> Maybe Int -> Annex Bool
checkKeyNumCopies key numcopies = do
needed <- getNumCopies numcopies
remotes <- Remotes.keyPossibilities key
inannex <- inAnnex key
let present = length remotes + if inannex then 1 else 0
g <- Annex.gitRepo
locations <- liftIO $ keyLocations g key
let present = length locations
if present < needed
then do
warning $ note present needed