Reduce number of buckets in rate limiter, avoiding ones with very low proof of work.

This got out of whack when sections were converted to rationals; there were
buckets that needed trivial proofs of work, and having these extra buckets
increased the total possible throughput.

1 files changed, 4 insertions, 1 deletions

diff --git a/Types/Cost.hs b/Types/Cost.hs
index 474db43..08f98eb 100644
--- a/Types/Cost.hs
+++ b/Types/Cost.hs
@@ -14,7 +14,10 @@ data Cost op
 	deriving (Show, Eq, Ord)
 
 newtype Seconds = Seconds Rational
-	deriving (Num, Fractional, Eq, Ord, Show)
+	deriving (Num, Fractional, Eq, Ord)
+
+instance Show Seconds where
+	show (Seconds n) = show (fromRational n :: Double) ++ "s"
 
 -- | How many CPU cores a single run of an operation can be divided amoung.
 newtype Divisibility = Divisibility Integer