summaryrefslogtreecommitdiff
path: root/Backend
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-06-23 13:39:04 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-06-23 13:39:04 -0400
commit7ee636f6ddca4b872dde36383077875563b0b369 (patch)
treedafedf4b87647a3c6106d4deeae8888611db2511 /Backend
parentaec4709c3f96fa17fef2fde812ed75167ddfbc60 (diff)
avoid unnecessary read of trust.log
Diffstat (limited to 'Backend')
-rw-r--r--Backend/File.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Backend/File.hs b/Backend/File.hs
index eab987ef8..675b48307 100644
--- a/Backend/File.hs
+++ b/Backend/File.hs
@@ -52,7 +52,7 @@ dummyStore _ _ = return True
- and copy it to here. -}
copyKeyFile :: Key -> FilePath -> Annex Bool
copyKeyFile key file = do
- (remotes, _) <- Remote.keyPossibilities key
+ remotes <- Remote.keyPossibilities key
if null remotes
then do
showNote "not available"
@@ -95,7 +95,7 @@ checkRemoveKey key numcopiesM = do
if force || numcopiesM == Just 0
then return True
else do
- (remotes, trusteduuids) <- Remote.keyPossibilities key
+ (remotes, trusteduuids) <- Remote.keyPossibilitiesTrusted key
untrusteduuids <- trustGet UnTrusted
let tocheck = Remote.remotesWithoutUUID remotes (trusteduuids++untrusteduuids)
numcopies <- getNumCopies numcopiesM