diff options
Diffstat (limited to 'Command/Info.hs')
-rw-r--r-- | Command/Info.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index 763279612..cb55602a6 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -12,7 +12,6 @@ module Command.Info where import "mtl" Control.Monad.State.Strict import qualified Data.Map.Strict as M import Text.JSON -import Data.Tuple import Data.Ord import Common.Annex @@ -403,9 +402,9 @@ disk_size = simpleStat "available local disk space" $ backend_usage :: Stat backend_usage = stat "backend usage" $ json fmt $ - sort . M.toList . backendsKeys <$> cachedReferencedData + toJSObject . sort . M.toList . backendsKeys <$> cachedReferencedData where - fmt = multiLine . map (\(n, b) -> b ++ ": " ++ show n) . map swap + fmt = multiLine . map (\(b, n) -> b ++ ": " ++ show n) . fromJSObject numcopies_stats :: Stat numcopies_stats = stat "numcopies stats" $ json fmt $ |