From b22b02a0520df48f458a0246e96968aa93a2dc83 Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Thu, 30 Apr 2026 18:16:18 +0100 Subject: [PATCH] relay logs --- src/Simplex/Chat/Library/Subscriber.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs index 019d1e0fd7..9828e7be4a 100644 --- a/src/Simplex/Chat/Library/Subscriber.hs +++ b/src/Simplex/Chat/Library/Subscriber.hs @@ -1281,7 +1281,9 @@ processAgentMessageConn vr user@User {userId} corrId agentConnId agentMessage = processContactConnMessage :: AEvent e -> ConnectionEntity -> Connection -> UserContact -> CM () processContactConnMessage agentMsg connEntity conn UserContact {userContactLinkId = uclId, groupId = ucGroupId_} = case agentMsg of REQ invId pqSupport _ connInfo -> do + liftIO $ print "**** REQ" ChatMessage {chatVRange, chatMsgEvent} <- parseChatMessage conn connInfo + liftIO $ print "**** REQ parsed event" case chatMsgEvent of XContact p xContactId_ welcomeMsgId_ requestMsg_ -> profileContactRequest invId chatVRange p xContactId_ welcomeMsgId_ requestMsg_ pqSupport XMember p joiningMemberId joiningMemberKey -> memberJoinRequestViaRelay invId chatVRange p joiningMemberId joiningMemberKey @@ -1492,6 +1494,7 @@ processAgentMessageConn vr user@User {userId} corrId agentConnId agentMessage = toViewTE $ TERejectingGroupJoinRequestMember user gInfo mem rjctReason xGrpRelayInv :: InvitationId -> VersionRangeChat -> GroupRelayInvitation -> CM () xGrpRelayInv invId chatVRange groupRelayInv = do + liftIO $ print "**** XGrpRelayInv" (_gInfo, _ownerMember) <- withStore $ \db -> createRelayRequestGroup db vr user groupRelayInv invId chatVRange lift $ void $ getRelayRequestWorker True xGrpRelayTest :: InvitationId -> VersionRangeChat -> ByteString -> CM ()