mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

show number of repos

Browse source
This commit is contained in:
Joey Hess 2011-11-15 00:33:54 -04:00
parent 019373f827
commit def0788698
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Command/Status.hs
View file

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