agent: restart retry loops when reconnecting all servers

reconnectAllServers closes the clients but left every retry loop waiting out its
current interval, so "Reconnect all servers" and a network config change could
take up to the maximum interval to deliver anything. It now increments the
network epoch as a network change does, after closing the clients.
This commit is contained in:
Narasimha-sc
2026-10-05 20:57:41 +00:00
parent 925545c7bb
commit 5b740ea7dd
+1
View File
@@ -754,6 +754,7 @@ reconnectAllServers c = do
reconnectServerClients c smpClients
reconnectServerClients c xftpClients
reconnectServerClients c ntfClients
atomically $ modifyTVar' (networkEpoch c) (+ 1)
-- | Register device notifications token
registerNtfToken :: AgentClient -> NetworkRequestMode -> DeviceToken -> NotificationsMode -> AE NtfTknStatus