mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Merge branch 'master' into incrementalfsck

Browse source
This commit is contained in:
Joey Hess 2013-10-13 15:05:44 -04:00
commit a1040a38c5
18 changed files with 505 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Command/Status.hs
View file

@ -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 ++ ")"