summaryrefslogtreecommitdiff
path: root/Command/Status.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Status.hs')
-rw-r--r--Command/Status.hs19
1 files changed, 13 insertions, 6 deletions
diff --git a/Command/Status.hs b/Command/Status.hs
index eadb4f163..39e71e750 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -228,12 +228,19 @@ showSizeKeys d = total ++ missingnote
" keys of unknown size"
staleSize :: String -> (Git.Repo -> FilePath) -> Stat
-staleSize label dirspec = do
- keys <- lift (Command.Unused.staleKeys dirspec)
- if null keys
- then nostat
- else stat label $ json (++ aside "clean up with git-annex unused") $
- return $ showSizeKeys $ foldKeys keys
+staleSize label dirspec = go =<< lift (Command.Unused.staleKeys dirspec)
+ where
+ go [] = nostat
+ go keys = onsize =<< sum <$> keysizes keys
+ onsize 0 = nostat
+ onsize size = stat label $
+ json (++ aside "clean up with git-annex unused") $
+ return $ roughSize storageUnits False size
+ keysizes keys = map (fromIntegral . fileSize) <$> stats keys
+ stats keys = do
+ dir <- lift $ fromRepo dirspec
+ liftIO $ forM keys $ \k ->
+ getFileStatus (dir </> keyFile k)
aside :: String -> String
aside s = " (" ++ s ++ ")"