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-16 22:49:41 -04:00
parent 51cc71fac1
commit 33e6425d10
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Command/Status.hs
View file

@ -169,7 +169,7 @@ keySizeSum (keys, len) = do
let missing = len - genericLength knownsize let missing = len - genericLength knownsize
return $ total ++ return $ total ++
if missing > 0 if missing > 0
then " (but " ++ show missing ++ " keys have unknown size)" then aside $ "but " ++ show missing ++ " keys have unknown size"
else "" else ""
staleSize :: String -> (Git.Repo -> FilePath) -> Stat staleSize :: String -> (Git.Repo -> FilePath) -> Stat
@ -179,4 +179,7 @@ staleSize label dirspec = do
then nostat then nostat
else stat label $ do else stat label $ do
s <- keySizeSum $ sizeList keys s <- keySizeSum $ sizeList keys
return $ s ++ " (clean up with git-annex unused)" return $ s ++ aside "clean up with git-annex unused"
aside :: String -> String
aside s = "\t(" ++ s ++ ")"