diff --git a/src/HomeAssistant/Runtime/RateLimit.hs b/src/HomeAssistant/Runtime/RateLimit.hs index 26ca078..080e011 100644 --- a/src/HomeAssistant/Runtime/RateLimit.hs +++ b/src/HomeAssistant/Runtime/RateLimit.hs @@ -69,6 +69,6 @@ runRateLimited (RateLimiter metrics run) action = checkpointCallStack $ do run action maybe (incReject >> throw RateLimitExhausted) pure x where - retryPolicy = fullJitterBackoff 50000 <> limitRetries 5 + retryPolicy = fullJitterBackoff 500_000 <> limitRetries 5 incRetry = liftIO $ Counter.inc (rlRetries metrics) incReject = liftIO $ Counter.inc (rlRejects metrics)