From f3cd3eac584fcd5198333373fbb24d1803b8c731 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Wed, 30 Dec 2020 18:50:50 +0000
Subject: [PATCH] add protocol version in TCP welcome

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

diff --git a/src/Simplex/Messaging/Server.hs b/src/Simplex/Messaging/Server.hs
index 433f673fa..5cca687a3 100644
--- a/src/Simplex/Messaging/Server.hs
+++ b/src/Simplex/Messaging/Server.hs
@@ -58,7 +58,7 @@ runSMPServer cfg@ServerConfig {tcpPort} = do
 
 runClient :: (MonadUnliftIO m, MonadReader Env m) => Handle -> m ()
 runClient h = do
-  putLn h "Welcome to SMP"
+  putLn h "Welcome to SMP v0.2.0"
   q <- asks $ tbqSize . config
   c <- atomically $ newClient q
   s <- asks server
diff --git a/tests/SMPClient.hs b/tests/SMPClient.hs
index fccfce8fb..6e1e57494 100644
--- a/tests/SMPClient.hs
+++ b/tests/SMPClient.hs
@@ -27,7 +27,7 @@ testSMPClient client = do
   threadDelay 5000 -- TODO hack: thread delay for SMP server to start
   runTCPClient testHost testPort $ \h -> do
     line <- getLn h
-    if line == "Welcome to SMP"
+    if line == "Welcome to SMP v0.2.0"
       then client h
       else error "not connected"