diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-16 00:01:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-16 00:01:07 -0400 |
| commit | 9b71b5f26c158973ca2d60dccde38290a1c9e6ad (patch) | |
| tree | c9020b2f2b2ac2e1ad2b540e17e32dddeb1da17f /Logs/UUID.hs | |
| parent | e83b966eb5197171a6af46595049d661c4229c58 (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.hs | 6 |
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 |