Increase the backoff

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)