diff options
| -rw-r--r-- | Backend/File.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Backend/File.hs b/Backend/File.hs index 0b1cdd8e5..092cf7e73 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -95,13 +95,13 @@ checkRemoveKey key numcopiesM = do g <- Annex.gitRepo locations <- liftIO $ keyLocations g key trusted <- getTrusted - let trustedlocations = intersect locations trusted + let trustedcopies = length $ intersect locations trusted remotes <- Remotes.keyPossibilities key untrustedremotes <- reposWithoutUUID remotes trusted numcopies <- getNumCopies numcopiesM if numcopies > length untrustedremotes then notEnoughCopies numcopies (length untrustedremotes) [] - else findcopies numcopies (length trustedlocations) untrustedremotes [] + else findcopies numcopies trustedcopies untrustedremotes [] where findcopies need have [] bad | have >= need = return True |