add protocol version in TCP welcome

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

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"