From 2cb8035ef4f15d54f02e30d60e58673ddf4765ae Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Wed, 16 Sep 2026 12:51:58 +0300 Subject: [PATCH] Increase the backoff --- src/HomeAssistant/Runtime/RateLimit.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)