From 42585681acaed341f32a104a3873ad0566f9ca51 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2016 20:22:44 -0400 Subject: Make rate limiter adapt to ongoing load more quickly -- every 15 minutes instead of every 60. --- 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 e58b543..3a17a5a 100644 --- a/HTTP/RateLimit.hs +++ b/HTTP/RateLimit.hs @@ -392,7 +392,7 @@ adjusterThread cfg storedir ratelimiter logger = forever $ do delay (1000000 * intervalsecs) checkRequestRate cfg storedir ratelimiter logger intervalsecs where - intervalsecs = 60*60 + intervalsecs = 60*15 checkRequestRate :: ServerConfig -> Maybe LocalStorageDirectory -> RateLimiter -> Logger -> Integer -> IO () checkRequestRate cfg storedir ratelimiter logger intervalsecs = do -- cgit v1.2.3