Increase the backoff

This commit is contained in:
2026-09-16 12:51:58 +03:00
parent 1ec8c7211f
commit 2cb8035ef4
+1 -1
View File
@@ -69,6 +69,6 @@ runRateLimited (RateLimiter metrics run) action = checkpointCallStack $ do
run action run action
maybe (incReject >> throw RateLimitExhausted) pure x maybe (incReject >> throw RateLimitExhausted) pure x
where where
retryPolicy = fullJitterBackoff 50000 <> limitRetries 5 retryPolicy = fullJitterBackoff 500_000 <> limitRetries 5
incRetry = liftIO $ Counter.inc (rlRetries metrics) incRetry = liftIO $ Counter.inc (rlRetries metrics)
incReject = liftIO $ Counter.inc (rlRejects metrics) incReject = liftIO $ Counter.inc (rlRejects metrics)