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

use unabbreviated size units in status

Browse source
This commit is contained in:
Joey Hess 2012-04-06 14:54:41 -04:00
parent 1424186c0b
commit fcc08c59ec
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Status.hs
View file

@ -165,7 +165,7 @@ bloom_info = stat "bloom filter size" $ json id $ do
-- Two bloom filters are used at the same time, so double the size -- Two bloom filters are used at the same time, so double the size
-- of one. -- of one.
size <- roughSize memoryUnits True . (* 2) . fromIntegral . fst <$> size <- roughSize memoryUnits False . (* 2) . fromIntegral . fst <$>
lift Command.Unused.bloomBitsHashes lift Command.Unused.bloomBitsHashes
return $ size ++ note return $ size ++ note
@ -177,7 +177,7 @@ disk_size = stat "available local disk space" $ json id $ lift $
<*> inRepo (getDiskFree . gitAnnexDir) <*> inRepo (getDiskFree . gitAnnexDir)
where where
calcfree reserve (Just have) = calcfree reserve (Just have) =
roughSize storageUnits True $ nonneg $ have - reserve roughSize storageUnits False $ nonneg $ have - reserve
calcfree _ _ = "unknown" calcfree _ _ = "unknown"
nonneg x nonneg x
| x >= 0 = x | x >= 0 = x