summaryrefslogtreecommitdiff
path: root/Command/Status.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 /Command/Status.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 'Command/Status.hs')
-rw-r--r--Command/Status.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs
index 2c0afa62c..47b500b90 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -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