diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-10 17:27:00 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-10 17:27:00 -0400 |
| commit | 110c8f7b8e1fa484752298de5b48ea50b195066a (patch) | |
| tree | 2bf785e8dc21b4b23046188d194431445a41e77f /Command/Status.hs | |
| parent | 3a48563e5258f650e6da41a90d2140bf033ce58f (diff) | |
queue downloads of keys that fsck finds with bad content
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index e9df79eb3..21d46c5ec 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -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 |