From 5b1f292bc3b31fe1bdfcfafac3940880c8d7887b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 11 Aug 2024 20:49:09 +0200
Subject: Network: clear keep-alive timeout when sending to avoid loop

---
 src/Erebos/Network/Protocol.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Erebos/Network/Protocol.hs b/src/Erebos/Network/Protocol.hs
index d759994..ded0b05 100644
--- a/src/Erebos/Network/Protocol.hs
+++ b/src/Erebos/Network/Protocol.hs
@@ -891,6 +891,7 @@ processOutgoing gs@GlobalState {..} = do
                     now <- readTVar gNowVar
                     if next <= now
                       then do
+                        writeTVar cNextKeepAlive Nothing
                         identity <- fst <$> readTVar gIdentity
                         let header = TransportHeader [ AnnounceSelf $ refDigest $ storedRef $ idData identity ]
                         writeTQueue cSecureOutQueue (EncryptedOnly, TransportPacket header [], [])
-- 
cgit v1.2.3