From 110c8f7b8e1fa484752298de5b48ea50b195066a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 10 Oct 2013 17:27:00 -0400 Subject: queue downloads of keys that fsck finds with bad content --- Command/Status.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/Status.hs') 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 -- cgit v1.2.3