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

list backends with more keys first, not last

Browse source
This commit is contained in:
Joey Hess 2011-09-30 03:03:59 -04:00
parent 03e54680ff
commit a7102ca4d5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Status.hs
View file

@ -117,7 +117,7 @@ bad_data_size = staleSize "bad keys size" gitAnnexBadDir
backend_usage :: Stat backend_usage :: Stat
backend_usage = stat "backend usage" $ usage <$> cachedKeysReferenced backend_usage = stat "backend usage" $ usage <$> cachedKeysReferenced
where where
usage ks = pp "" $ sort $ map swap $ splits $ S.toList ks usage ks = pp "" $ reverse . sort $ map swap $ splits $ S.toList ks
splits :: [Key] -> [(String, Integer)] splits :: [Key] -> [(String, Integer)]
splits ks = M.toList $ M.fromListWith (+) $ map tcount ks splits ks = M.toList $ M.fromListWith (+) $ map tcount ks
tcount k = (keyBackendName k, 1) tcount k = (keyBackendName k, 1)