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

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