summaryrefslogtreecommitdiff
path: root/Command/Status.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-13 15:05:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-13 15:05:44 -0400
commitf0cf034faa674921dae63d7a54270861bbe86e29 (patch)
treee980593037c29c330b05de08bf0fc28389151682 /Command/Status.hs
parenta8728440dec6213c1e9e5347175effca30c1118e (diff)
parent03d5ee36f6c36eea42d21bbf6879800d452aa651 (diff)
Merge branch 'master' into incrementalfsck
Diffstat (limited to 'Command/Status.hs')
-rw-r--r--Command/Status.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/Status.hs b/Command/Status.hs
index 9da1bea98..c3713f073 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -371,10 +371,11 @@ staleSize label dirspec = go =<< lift (dirKeys dirspec)
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
+ keysizes keys = do
dir <- lift $ fromRepo dirspec
- liftIO $ forM keys $ \k -> getFileStatus (dir </> keyFile k)
+ liftIO $ forM keys $ \k -> catchDefaultIO 0 $
+ fromIntegral . fileSize
+ <$> getFileStatus (dir </> keyFile k)
aside :: String -> String
aside s = " (" ++ s ++ ")"