This commit is contained in:
Efim Poberezkin
2021-09-09 01:30:39 +10:00
committed by GitHub
parent da071a0abf
commit 862f25500d
5 changed files with 6 additions and 6 deletions
+1 -1
View File
@@ -106,7 +106,7 @@ runSMPAgentBlocking (ATransport t) started cfg@AgentConfig {tcpPort} = runReader
where
smpAgent :: forall c m'. (Transport c, MonadUnliftIO m', MonadReader Env m') => TProxy c -> m' ()
smpAgent _ = runTransportServer started tcpPort $ \(h :: c) -> do
liftIO $ putLn h "Welcome to SMP v0.3.2 agent"
liftIO $ putLn h "Welcome to SMP v0.4.0 agent"
c <- getAgentClient
logConnection c True
race_ (connectClient h c) (runAgentClient c)