From ee5d81429dcc6c8c2922c4c6696abc17e0440ff6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 28 Dec 2010 17:19:01 -0400
Subject: tweak

---
 Backend/File.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Backend')

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
-- 
cgit v1.2.3