mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

better filtering out of current repo

Browse source
This commit is contained in:
Joey Hess 2010-12-29 19:21:13 -04:00
parent 5b8f8ced0b
commit 36b73714d0
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Remotes.hs
View file

@ -88,12 +88,14 @@ keyPossibilities key = do
partition remotes = do partition remotes = do
g <- Annex.gitRepo g <- Annex.gitRepo
u <- getUUID g u <- getUUID g
validuuids <- liftIO $ keyLocations g key
trusted <- getTrusted 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 -- get uuids trusted to have the key
-- note that validuuids is assumed to not have dups -- note that validuuids is assumed to not have dups
let validtrusteduuids = filter (/= u) $ let validtrusteduuids = intersect validuuids trusted
intersect validuuids trusted
-- remotes that match uuids that have the key -- remotes that match uuids that have the key
validremotes <- reposByUUID remotes validuuids validremotes <- reposByUUID remotes validuuids
-- partition out the trusted and untrusted remotes -- partition out the trusted and untrusted remotes