diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-05 22:48:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-05 23:11:07 -0400 |
| commit | ad43f0362688a601ba43f462e80f5a91bf398c02 (patch) | |
| tree | 550788062a775eb6b2c2c087052993aa10435875 /Command/Status.hs | |
| parent | 47be4383b714320c9e3f49cc23315101fad5735b (diff) | |
per-command options
Finally commands can define their own options.
Moved --format and --print0 to be options only of find.
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 736d897ef..d2d8d4c07 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -144,9 +144,9 @@ bad_data_size = staleSize "bad keys size" gitAnnexBadDir backend_usage :: Stat backend_usage = stat "backend usage" $ nojson $ - usage <$> cachedKeysReferenced <*> cachedKeysPresent + calc <$> cachedKeysReferenced <*> cachedKeysPresent where - usage a b = pp "" $ reverse . sort $ map swap $ splits $ S.toList $ S.union a b + calc a b = pp "" $ reverse . sort $ map swap $ splits $ S.toList $ S.union a b splits :: [Key] -> [(String, Integer)] splits ks = M.toList $ M.fromListWith (+) $ map tcount ks tcount k = (keyBackendName k, 1) |