diff options
| -rw-r--r-- | Logs/Trust.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Logs/Trust.hs b/Logs/Trust.hs index cd437bf89..f61966b9e 100644 --- a/Logs/Trust.hs +++ b/Logs/Trust.hs @@ -11,6 +11,7 @@ module Logs.Trust ( trustGet, trustSet, trustPartition, + trustExclude, lookupTrust, trustMapLoad, trustMapRaw, @@ -67,6 +68,10 @@ trustPartition level ls candidates <- trustGet level 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 - the git config. The map is cached for speed. -} trustMap :: Annex TrustMap |