aboutsummaryrefslogtreecommitdiff
path: root/Logs/Trust.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-11-16 00:01:07 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-11-16 00:01:07 -0400
commit9b71b5f26c158973ca2d60dccde38290a1c9e6ad (patch)
treec9020b2f2b2ac2e1ad2b540e17e32dddeb1da17f /Logs/Trust.hs
parente83b966eb5197171a6af46595049d661c4229c58 (diff)
fix display of semitrusted repos in status
semitrusted uuids rarely are listed in trust.log, so a special case is needed to get a list of them. Take the difference of all known uuids with non-semitrusted uuids.
Diffstat (limited to 'Logs/Trust.hs')
-rw-r--r--Logs/Trust.hs5
1 files changed, 5 insertions, 0 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