From f44a21acfa111bbc5e65ac45a5a44622b5cda598 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 13 Sep 2016 14:18:15 -0400 Subject: got my usec conversion wrong --- HTTP/RateLimit.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'HTTP') diff --git a/HTTP/RateLimit.hs b/HTTP/RateLimit.hs index d8b3dc1..46cbcd8 100644 --- a/HTTP/RateLimit.hs +++ b/HTTP/RateLimit.hs @@ -172,7 +172,7 @@ assignWork ratelimiter bs = case mapMaybe mkProofReq bs of -- impact many users. tokenBucketWait (randomSaltGenerationLimiter ratelimiter) 100 -- burst - 100000 -- refill 1 token per second + 1000000 -- refill 1 token per second salt <- liftIO mkRandomSalt withBloomFilter ratelimiter assignedRandomSalts -- cgit v1.2.3