dandri/simplexmq
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-10-23 15:12:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

agent: fix async join to avoid sending HELLO again after restart (#829)

Browse Source 
* agent: fix async join to avoid sending HELLO again after restart

* update test

* add callstack to test

* improve test
This commit is contained in:
Evgeny Poberezkin authored and GitHub committed 2023-08-21 14:35:46 +01:00
1 parent d09adb5cd6
commit 44abb90c63
3 files changed
+29 -25
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/Simplex/Messaging/Agent.hs
+4 -3
View File
@@ -640,10 +640,11 @@ joinConnSrv c userId connId enableNtfs (CRContactUri ConnReqUriData {crAgentVRan
joinConnSrvAsync :: AgentMonad m => AgentClient -> UserId -> ConnId -> Bool -> ConnectionRequestUri c -> ConnInfo -> SMPServerWithAuth -> m ()
joinConnSrvAsync c userId connId enableNtfs inv@CRInvitationUri {} cInfo srv = do
(aVersion, cData, q, rc, e2eSndParams) <- startJoinInvitation userId connId enableNtfs inv
withStore c $ \db -> runExceptT $ do
void . ExceptT $ updateNewConnSnd db connId q
dbQueueId <- withStore c $ \db -> runExceptT $ do
liftIO $ createRatchet db connId rc
confirmQueueAsync aVersion c cData q srv cInfo $ Just e2eSndParams
ExceptT $ updateNewConnSnd db connId q
let q' = (q :: SndQueue) {dbQueueId}
confirmQueueAsync aVersion c cData q' srv cInfo $ Just e2eSndParams
joinConnSrvAsync _c _userId _connId _enableNtfs (CRContactUri _) _cInfo _srv = do
throwError $ CMD PROHIBITED