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"