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

remote: return tls with remote host before host confirmation (#894)

Browse Source
This commit is contained in:
Evgeny Poberezkin authored and GitHub committed 2023-11-13 19:25:53 +00:00
1 parent 4f5d52ada4
commit e0b7942e45
2 files changed
+5 -5
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tests/RemoteControl.hs
+2 -2
View File
@@ -30,7 +30,7 @@ testNewPairing = do
logNote "c 2"
putMVar invVar (inv, hc)
logNote "c 3"
Right (sessId, r') <- atomically $ takeTMVar r
Right (sessId, _tls, r') <- atomically $ takeTMVar r
logNote "c 4"
Right (_rcHostSession, _rcHelloBody, _hp') <- atomically $ takeTMVar r'
logNote "c 5"
@@ -98,7 +98,7 @@ testExistingPairing = do
runCtrl drg hp invVar = async . runRight $ do
(inv, hc, r) <- RC.connectRCHost drg hp (J.String "app")
putMVar invVar inv
Right (_sessId, r') <- atomically $ takeTMVar r
Right (_sessId, _tls, r') <- atomically $ takeTMVar r
Right (_rcHostSession, _rcHelloBody, hp') <- atomically $ takeTMVar r'
threadDelay 250000
liftIO $ RC.cancelHostClient hc