diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-10-09 15:35:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-09 15:46:05 -0400 |
| commit | f3d197128322981d58677ba165f7d33158e07940 (patch) | |
| tree | d73f043118c4b50313fc8475222df6245eac2beb /Command/Info.hs | |
| parent | cfc51c5e4ec04f9d5088c42922217cf90b63c903 (diff) | |
hlint
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 |