dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-06-04 21:41:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

random connection and message IDs

Browse Source
This commit is contained in:
Evgeny Poberezkin
2020-10-17 11:07:09 +01:00
parent ee40927506
commit 5a0402d0c4
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Server.hs
+1 -1
View File
@@ -16,8 +16,8 @@ import Control.Monad
import Control.Monad.IO.Unlift
import Control.Monad.Reader
import Crypto.Random
import Data.ByteString (ByteString)
import Data.ByteString.Base64
import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B
import qualified Data.Map.Strict as M
import Data.Singletons
tests/SMPClient.hs
+1 -1
View File
@@ -15,7 +15,7 @@ import UnliftIO.IO
testSMPClient :: MonadUnliftIO m => HostName -> ServiceName -> (Handle -> m a) -> m a
testSMPClient host port client = do
threadDelay 100 -- TODO hack: thread delay for SMP server to start
threadDelay 1000 -- TODO hack: thread delay for SMP server to start
runTCPClient host port $ \h -> do
line <- getLn h
if line == "Welcome to SMP"