summaryrefslogtreecommitdiff
path: root/Logs/UUID.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/UUID.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/UUID.hs')
-rw-r--r--Logs/UUID.hs6
1 files changed, 5 insertions, 1 deletions
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