add protocol version in TCP welcome

This commit is contained in:
Evgeny Poberezkin committed 2020-12-30 18:50:50 +00:00
1 parent 3c1834f93f
commit f3cd3eac58
2 files changed
+2 -2

No files matched your search

+1 -1
View File
@@ -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