aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-04-06 14:54:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-04-06 14:54:41 -0400
commitfcc08c59ec827bf6672b4288998cab4a98ebd20a (patch)
treece17742e7f69f6fa8f1832ff7eef4bb87874d338
parent1424186c0b9b90cc8e80998148e10ba8d626d369 (diff)
use unabbreviated size units in status
-rw-r--r--Command/Status.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Status.hs b/Command/Status.hs
index 40cefb5cc..1ee36d8b4 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -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
-- of one.
- size <- roughSize memoryUnits True . (* 2) . fromIntegral . fst <$>
+ size <- roughSize memoryUnits False . (* 2) . fromIntegral . fst <$>
lift Command.Unused.bloomBitsHashes
return $ size ++ note
@@ -177,7 +177,7 @@ disk_size = stat "available local disk space" $ json id $ lift $
<*> inRepo (getDiskFree . gitAnnexDir)
where
calcfree reserve (Just have) =
- roughSize storageUnits True $ nonneg $ have - reserve
+ roughSize storageUnits False $ nonneg $ have - reserve
calcfree _ _ = "unknown"
nonneg x
| x >= 0 = x