From fcc08c59ec827bf6672b4288998cab4a98ebd20a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 6 Apr 2012 14:54:41 -0400
Subject: use unabbreviated size units in status

---
 Command/Status.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Command')

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
-- 
cgit v1.2.3