dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-03-30 20:45:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

revert to using forkIO in the tests

Browse Source
This commit is contained in:
Evgeny Poberezkin
2021-01-25 20:44:39 +00:00
parent 90a5da41d5
commit c0bacd92e4
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tests/SMPAgentClient.hs
View File

@@ -123,7 +123,7 @@ cfg =
withSmpAgentThreadOn :: (MonadUnliftIO m, MonadRandom m) => (ServiceName, String) -> (ThreadId -> m a) -> m a
withSmpAgentThreadOn (port', db') =
E.bracket
(forkIOWithUnmask ($ runSMPAgent cfg {tcpPort = port', dbFile = db'}))
(forkIO $ runSMPAgent cfg {tcpPort = port', dbFile = db'})
(liftIO . killThread >=> const (removeFile db'))
withSmpAgentOn :: (MonadUnliftIO m, MonadRandom m) => (ServiceName, String) -> m a -> m a

2
tests/SMPClient.hs
View File

@@ -43,7 +43,7 @@ cfg =
withSmpServerThreadOn :: (MonadUnliftIO m, MonadRandom m) => ServiceName -> (ThreadId -> m a) -> m a
withSmpServerThreadOn port =
E.bracket
(forkIOWithUnmask ($ runSMPServer cfg {tcpPort = port}))
(forkIO $ runSMPServer cfg {tcpPort = port})
(liftIO . killThread)
withSmpServerOn :: (MonadUnliftIO m, MonadRandom m) => ServiceName -> m a -> m a