mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2011-05-17 01:59:44 -04:00
parent 33e6425d10
commit 75a3f5027f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Status.hs
View file

@ -11,6 +11,7 @@ import Control.Monad.State
import Data.Maybe import Data.Maybe
import System.IO import System.IO
import Data.List import Data.List
import Data.Tuple
import qualified Data.Map as M import qualified Data.Map as M
import qualified Annex import qualified Annex
@ -129,11 +130,10 @@ backend_usage :: Stat
backend_usage = stat "backend usage" $ backend_usage = stat "backend usage" $
return . usage =<< cachedKeysReferenced return . usage =<< cachedKeysReferenced
where where
usage (ks, _) = pp "" $ sort $ map tflip $ splits ks usage (ks, _) = pp "" $ sort $ map swap $ splits ks
splits :: [Key] -> [(String, Integer)] splits :: [Key] -> [(String, Integer)]
splits ks = M.toList $ M.fromListWith (+) $ map tcount ks splits ks = M.toList $ M.fromListWith (+) $ map tcount ks
tcount k = (keyBackendName k, 1) tcount k = (keyBackendName k, 1)
tflip (a, b) = (b, a)
pp c [] = c pp c [] = c
pp c ((n, b):xs) = "\n\t" ++ b ++ ": " ++ show n ++ pp c xs pp c ((n, b):xs) = "\n\t" ++ b ++ ": " ++ show n ++ pp c xs