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

add trustExclude

Browse source
This commit is contained in:
Joey Hess 2012-11-11 00:24:32 -04:00
parent 3f8ce7a0c5
commit ec337baaee
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Logs/Trust.hs
View file

@ -11,6 +11,7 @@ module Logs.Trust (
trustGet, trustGet,
trustSet, trustSet,
trustPartition, trustPartition,
trustExclude,
lookupTrust, lookupTrust,
trustMapLoad, trustMapLoad,
trustMapRaw, trustMapRaw,
@ -67,6 +68,10 @@ trustPartition level ls
candidates <- trustGet level candidates <- trustGet level
return $ partition (`elem` candidates) ls return $ partition (`elem` candidates) ls
{- Filters UUIDs to those not matching a TrustLevel. -}
trustExclude :: TrustLevel -> [UUID] -> Annex ([UUID])
trustExclude level ls = snd <$> trustPartition level ls
{- trustLog in a map, overridden with any values from forcetrust or {- trustLog in a map, overridden with any values from forcetrust or
- the git config. The map is cached for speed. -} - the git config. The map is cached for speed. -}
trustMap :: Annex TrustMap trustMap :: Annex TrustMap