diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-04-29 17:48:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-04-29 17:48:07 -0400 |
| commit | 0c9c14b52fcdd9684da70c8dd763661acdbd3843 (patch) | |
| tree | 410c489f196bb4723cdd5ae4c634a2fcefee7c88 /Command/Status.hs | |
| parent | d2bfba6324ca54253be62716b1bbdc86e0e1aafe (diff) | |
percentage library
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 057ab72bf..2540a92da 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -12,7 +12,6 @@ module Command.Status where import Control.Monad.State.Strict import qualified Data.Map as M import Text.JSON -import Data.Ratio import Common.Annex import qualified Types.Backend as B @@ -31,6 +30,7 @@ import Logs.UUID import Logs.Trust import Remote import Config +import Utility.Percentage -- a named computation that produces a statistic type Stat = StatState (Maybe (String, StatState String)) @@ -161,7 +161,7 @@ bloom_info = stat "bloom filter size" $ json id $ do let note = aside $ if localkeys >= capacity then "appears too small for this repository; adjust annex.bloomcapacity" - else show (floor (percentage capacity localkeys) :: Integer) ++ "% full" + else showPercentage 1 (percentage capacity localkeys) ++ " full" -- Two bloom filters are used at the same time, so double the size -- of one. @@ -170,10 +170,6 @@ bloom_info = stat "bloom filter size" $ json id $ do return $ size ++ note - where - percentage :: Integer -> Integer -> Double - percentage full have = 100 * (fromRational $ have % full) - disk_size :: Stat disk_size = stat "available local disk space" $ json id $ lift $ calcfree |