diff options
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/File.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Backend/File.hs b/Backend/File.hs index 5984348b3..e3225a8b8 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -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 |