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

queue downloads of keys that fsck finds with bad content

Browse source
This commit is contained in:
Joey Hess 2013-10-10 17:27:00 -04:00
parent 82083658cf
commit 18f4d1b400
4 changed files with 30 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Status.hs
View file

@ -363,7 +363,7 @@ showSizeKeys d = total ++ missingnote
" keys of unknown size"
staleSize :: String -> (Git.Repo -> FilePath) -> Stat
staleSize label dirspec = go =<< lift (Command.Unused.staleKeys dirspec)
staleSize label dirspec = go =<< lift (dirKeys dirspec)
where
go [] = nostat
go keys = onsize =<< sum <$> keysizes keys