status: Include all special remotes in the list of repositories.

Special remotes do not always have a description listed in uuid.log,
and such ones were not listed before.
This commit is contained in:
Joey Hess 2011-11-18 13:22:48 -04:00
parent 1326bb8635
commit c50a5fbeb4
5 changed files with 24 additions and 19 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 <- uuidList
us <- M.keys <$> (M.union <$> uuidMap <*> remoteMap)
rs <- fst <$> trustPartition level us
s <- prettyPrintUUIDs n rs
return $ if null s then "0" else show (length rs) ++ "\n" ++ init s