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

Merge branch 'master' into sqlcipher

Browse Source
This commit is contained in:
Evgeny Poberezkin committed 2022-09-14 18:46:03 +01:00
2 parents f1e34531c2 c07d4a5e4e
commit 08e0d7339f
14 files changed
+549 -116
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tests/ChatClient.hs
+3 -2
View File
@@ -8,7 +8,7 @@
module ChatClient where
import Control.Concurrent (ThreadId, forkIOWithUnmask, killThread)
import Control.Concurrent (ThreadId, forkIO, forkIOWithUnmask, killThread, threadDelay)
import Control.Concurrent.Async
import Control.Concurrent.STM
import Control.Exception (bracket, bracket_)
@@ -129,9 +129,10 @@ startTestChat_ st cfg opts dbFilePrefix user = do
stopTestChat :: TestCC -> IO ()
stopTestChat TestCC {chatController = cc, chatAsync, termAsync} = do
stopChatController cc
void . forkIO $ stopChatController cc
uninterruptibleCancel termAsync
uninterruptibleCancel chatAsync
threadDelay 100000
withNewTestChat :: String -> Profile -> (TestCC -> IO a) -> IO a
withNewTestChat = withNewTestChatCfgOpts testCfg testOpts