From 5a0402d0c49718bed776e53fc2b2c8d59af65cad Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Sat, 17 Oct 2020 11:07:09 +0100
Subject: [PATCH] random connection and message IDs

---
 src/Server.hs      | 2 +-
 tests/SMPClient.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Server.hs b/src/Server.hs
index 404635363..09dde99e0 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -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
diff --git a/tests/SMPClient.hs b/tests/SMPClient.hs
index 9c18f719f..b347f068e 100644
--- a/tests/SMPClient.hs
+++ b/tests/SMPClient.hs
@@ -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"