This commit is contained in:
Nikita Poberezkin
2021-05-23 14:19:19 +03:00
committed by GitHub
parent 8ed3eb4581
commit dea1845908
5 changed files with 9 additions and 4 deletions
+1 -1
View File
@@ -75,7 +75,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.1 agent"
liftIO $ putLn h "Welcome to SMP v0.3.2 agent"
c <- getSMPAgentClient
logConnection c True
race_ (connectClient h c) (runSMPAgentClient c)
+1 -1
View File
@@ -216,7 +216,7 @@ major :: SMPVersion -> (Int, Int)
major (SMPVersion a b _ _) = (a, b)
currentSMPVersion :: SMPVersion
currentSMPVersion = SMPVersion 0 3 1 0
currentSMPVersion = SMPVersion 0 3 2 0
serializeSMPVersion :: SMPVersion -> ByteString
serializeSMPVersion (SMPVersion a b c d) = B.intercalate "." [bshow a, bshow b, bshow c, bshow d]