diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-30 03:03:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-30 03:03:59 -0400 |
| commit | a7102ca4d53f8a4ab7148ab3717765683b136cfc (patch) | |
| tree | 5df4ca1667c6c35f688acb02259bf40c8b46b9f5 /Command/Status.hs | |
| parent | 03e54680ff1432915e2e02f87c95a9126af5a420 (diff) | |
list backends with more keys first, not last
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 6da8064f8..329d3f70b 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -117,7 +117,7 @@ bad_data_size = staleSize "bad keys size" gitAnnexBadDir backend_usage :: Stat backend_usage = stat "backend usage" $ usage <$> cachedKeysReferenced 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 ks = M.toList $ M.fromListWith (+) $ map tcount ks tcount k = (keyBackendName k, 1) |