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

tweak

Browse source
This commit is contained in:
Joey Hess 2012-03-21 23:23:23 -04:00
parent d315798609
commit 52b90e5d4c
1 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Command/Status.hs
View file

@ -141,6 +141,20 @@ local_annex_keys :: Stat
local_annex_keys = stat "local annex keys" $ json show $ local_annex_keys = stat "local annex keys" $ json show $
countKeys <$> cachedPresentData countKeys <$> cachedPresentData
known_annex_size :: Stat
known_annex_size = stat "known annex size" $ json id $
showSizeKeys <$> cachedReferencedData
known_annex_keys :: Stat
known_annex_keys = stat "known annex keys" $ json show $
countKeys <$> cachedReferencedData
tmp_size :: Stat
tmp_size = staleSize "temporary directory size" gitAnnexTmpDir
bad_data_size :: Stat
bad_data_size = staleSize "bad keys size" gitAnnexBadDir
bloom_info :: Stat bloom_info :: Stat
bloom_info = stat "bloom filter size" $ json id $ do bloom_info = stat "bloom filter size" $ json id $ do
localkeys <- countKeys <$> cachedPresentData localkeys <- countKeys <$> cachedPresentData
@ -157,10 +171,6 @@ bloom_info = stat "bloom filter size" $ json id $ do
return $ size ++ note return $ size ++ note
known_annex_size :: Stat
known_annex_size = stat "known annex size" $ json id $
showSizeKeys <$> cachedReferencedData
disk_size :: Stat disk_size :: Stat
disk_size = stat "available local disk space" $ json id $ lift go disk_size = stat "available local disk space" $ json id $ lift go
where where
@ -171,23 +181,13 @@ disk_size = stat "available local disk space" $ json id $ lift go
<*> inRepo (getFileSystemStats . gitAnnexDir) <*> inRepo (getFileSystemStats . gitAnnexDir)
| otherwise = return unknown | otherwise = return unknown
calcfree reserve (Just (FileSystemStats { fsStatBytesAvailable = have })) = calcfree reserve (Just (FileSystemStats { fsStatBytesAvailable = have })) =
roughSize storageUnits True $ unreserved reserve have roughSize storageUnits True $ nonneg $ have - reserve
calcfree _ _ = unknown calcfree _ _ = unknown
unreserved reserve have nonneg x
| have >= reserve = have - reserve | x >= 0 = x
| otherwise = 0 | otherwise = 0
unknown = "unknown" unknown = "unknown"
known_annex_keys :: Stat
known_annex_keys = stat "known annex keys" $ json show $
countKeys <$> cachedReferencedData
tmp_size :: Stat
tmp_size = staleSize "temporary directory size" gitAnnexTmpDir
bad_data_size :: Stat
bad_data_size = staleSize "bad keys size" gitAnnexBadDir
backend_usage :: Stat backend_usage :: Stat
backend_usage = stat "backend usage" $ nojson $ backend_usage = stat "backend usage" $ nojson $
calc calc