diff options
Diffstat (limited to 'Command/Info.hs')
-rw-r--r-- | Command/Info.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index 1bea17ab4..5d3c86ce6 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -264,7 +264,7 @@ backend_usage = stat "backend usage" $ nojson $ where calc x y = multiLine $ map (\(n, b) -> b ++ ": " ++ show n) $ - reverse $ sort $ map swap $ M.toList $ + sortBy (flip compare) $ map swap $ M.toList $ M.unionWith (+) x y numcopies_stats :: Stat @@ -273,7 +273,7 @@ numcopies_stats = stat "numcopies stats" $ nojson $ where calc = multiLine . map (\(variance, count) -> show variance ++ ": " ++ show count) - . reverse . sortBy (comparing snd) . M.toList + . sortBy (flip (comparing snd)) . M.toList cachedPresentData :: StatState KeyData cachedPresentData = do |