queue downloads of keys that fsck finds with bad content

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

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