From 72059751dd9246be903462dff91ab9a4fefef56b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 26 Jul 2024 18:36:18 +0200
Subject: Network: send channel request even with just received cookie

---
 src/Erebos/Network.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Erebos/Network.hs b/src/Erebos/Network.hs
index 442285a..1e06008 100644
--- a/src/Erebos/Network.hs
+++ b/src/Erebos/Network.hs
@@ -671,12 +671,14 @@ setupChannel identity peer upid = do
             [ TrChannelRequest reqref
             , AnnounceSelf $ refDigest $ storedRef $ idData identity
             ]
+    let sendChannelRequest = do
+            sendToPeerPlain peer [ Acknowledged reqref, Rejected reqref ] $
+                TransportPacket (TransportHeader hitems) [storedRef req]
+            setPeerChannel peer $ ChannelOurRequest req
     liftIO $ atomically $ do
         getPeerChannel peer >>= \case
-            ChannelCookieConfirmed -> do
-                sendToPeerPlain peer [ Acknowledged reqref, Rejected reqref ] $
-                    TransportPacket (TransportHeader hitems) [storedRef req]
-                setPeerChannel peer $ ChannelOurRequest req
+            ChannelCookieReceived -> sendChannelRequest
+            ChannelCookieConfirmed -> sendChannelRequest
             _ -> return ()
 
 handleChannelRequest :: Peer -> UnifiedIdentity -> Ref -> WaitingRefCallback
-- 
cgit v1.2.3