diff options
Diffstat (limited to 'Command/Info.hs')
| -rw-r--r-- | Command/Info.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index d22c23c04..763279612 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -403,11 +403,8 @@ disk_size = simpleStat "available local disk space" $ backend_usage :: Stat backend_usage = stat "backend usage" $ json fmt $ - calc - <$> (backendsKeys <$> cachedReferencedData) - <*> (backendsKeys <$> cachedPresentData) + sort . M.toList . backendsKeys <$> cachedReferencedData where - calc x y = sort $ M.toList $ M.unionWith (+) x y fmt = multiLine . map (\(n, b) -> b ++ ": " ++ show n) . map swap numcopies_stats :: Stat |