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

bugfix

Browse source 
Different keys can have the same size, so can't make a Set of the sizes.

This version actually runs faster yet, too..
This commit is contained in:
Joey Hess 2011-09-20 20:14:17 -04:00
parent 9f5c7a246b
commit 98fbeba0df
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Command/Status.hs
View file

@ -147,14 +147,13 @@ cachedKeysReferenced = do
keySizeSum :: Set Key -> StatState String
keySizeSum s = do
let (sizes, unknownsizes) = S.partition isJust $ S.map keySize s
let total = roughSize storageUnits False $
fromJust $ S.fold (liftM2 (+)) (Just 0) sizes
let num = S.size unknownsizes
let knownsizes = mapMaybe keySize $ S.toList s
let total = roughSize storageUnits False $ sum knownsizes
let missing = S.size s - genericLength knownsizes
return $ total ++
if num == 0
if missing == 0
then ""
else aside $ "but " ++ show num ++ " keys have unknown size"
else aside $ "but " ++ show missing ++ " keys have unknown size"
staleSize :: String -> (Git.Repo -> FilePath) -> Stat
staleSize label dirspec = do