Increase the backoff
This commit is contained in:
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user