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.
This commit is contained in:
Joey Hess 2011-11-16 00:01:07 -04:00
parent e83b966eb5
commit 9b71b5f26c
3 changed files with 11 additions and 2 deletions

View file

@ -102,7 +102,7 @@ supported_remote_types = stat "supported remote types" $
remote_list :: TrustLevel -> String -> Stat
remote_list level desc = stat n $ lift $ do
us <- M.keys <$> uuidMap
us <- uuidList
rs <- fst <$> trustPartition level us
s <- prettyPrintUUIDs n rs
return $ if null s then "0" else show (length rs) ++ "\n" ++ init s