diff options
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Status.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 6da8064f8..ad490cae8 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) @@ -167,4 +167,4 @@ staleSize label dirspec = do return $ s ++ aside "clean up with git-annex unused" aside :: String -> String -aside s = "\t(" ++ s ++ ")" +aside s = " (" ++ s ++ ")" |