diff options
| -rw-r--r-- | Remotes.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Remotes.hs b/Remotes.hs index 053814d66..78ab010ce 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -88,12 +88,14 @@ keyPossibilities key = do partition remotes = do g <- Annex.gitRepo u <- getUUID g - validuuids <- liftIO $ keyLocations g key trusted <- getTrusted + -- get uuids of other repositories that are + -- believed to have the key + uuids <- liftIO $ keyLocations g key + let validuuids = filter (/= u) uuids -- get uuids trusted to have the key -- note that validuuids is assumed to not have dups - let validtrusteduuids = filter (/= u) $ - intersect validuuids trusted + let validtrusteduuids = intersect validuuids trusted -- remotes that match uuids that have the key validremotes <- reposByUUID remotes validuuids -- partition out the trusted and untrusted remotes |