Preserve outbound backlog across outages, fix backoff quiet period

2026-08-20 20:12:48 +03:00
parent c030267a77
commit b3aa4c4991
4 changed files with 9 additions and 6 deletions
@@ -23,7 +23,7 @@ import HomeAssistant.Controller (HASSEff (..), Service)
 import Network.WebSockets (Connection)

 -- | Shared runtime state: inbound is a broadcast channel (controllers
-- read from 'dupTChanIO' copies), outbound queues service calls for the
+-- read from 'dupTChan' copies), outbound queues service calls for the
 -- writer, conn holds the current websocket (Nothing before first connect).
 data Bus = Bus
  { busInbound  :: TChan Value