add CRContactConnecting api response (#281)

This commit is contained in:
Efim Poberezkin
2022-02-08 13:04:17 +04:00
committed by GitHub
parent 82d02e923a
commit 855881094b
4 changed files with 11 additions and 8 deletions
+3 -2
View File
@@ -964,8 +964,9 @@ processAgentMessage (Just user@User {userId, profile}) agentConnId agentMessage
saveConnInfo activeConn connInfo = do
ChatMessage {chatMsgEvent} <- liftEither $ parseChatMessage connInfo
case chatMsgEvent of
XInfo p ->
withStore $ \st -> createDirectContact st userId activeConn p
XInfo p -> do
ct <- withStore $ \st -> createDirectContact st userId activeConn p
toView $ CRContactConnecting ct
-- TODO show/log error, other events in SMP confirmation
_ -> pure ()