diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Trust.hs | 5 | ||||
| -rw-r--r-- | Logs/UUID.hs | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/Logs/Trust.hs b/Logs/Trust.hs index cb91861fd..6305d281f 100644 --- a/Logs/Trust.hs +++ b/Logs/Trust.hs @@ -20,6 +20,7 @@ import Types.TrustLevel import qualified Annex.Branch import qualified Annex import Logs.UUIDBased +import Logs.UUID {- Filename of trust.log. -} trustLog :: FilePath @@ -27,6 +28,10 @@ trustLog = "trust.log" {- Returns a list of UUIDs at the specified trust level. -} trustGet :: TrustLevel -> Annex [UUID] +trustGet SemiTrusted = do -- special case; trustMap does not contain all these + others <- M.keys . M.filter (/= SemiTrusted) <$> trustMap + all <- uuidList + return $ all \\ others trustGet level = M.keys . M.filter (== level) <$> trustMap {- Read the trustLog into a map, overriding with any diff --git a/Logs/UUID.hs b/Logs/UUID.hs index 20f43d15c..17b0330c1 100644 --- a/Logs/UUID.hs +++ b/Logs/UUID.hs @@ -16,7 +16,8 @@ module Logs.UUID ( describeUUID, recordUUID, - uuidMap + uuidMap, + uuidList ) where import qualified Data.Map as M @@ -87,3 +88,6 @@ uuidMap = do return $ M.insertWith' preferold u "" m where preferold = flip const + +uuidList :: Annex [UUID] +uuidList = M.keys <$> uuidMap |