diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs index 4b64d2b34d..a5ea3120ba 100644 --- a/src/Simplex/Chat/Library/Subscriber.hs +++ b/src/Simplex/Chat/Library/Subscriber.hs @@ -1492,7 +1492,7 @@ processAgentMessageConn vr user@User {userId} corrId agentConnId agentMessage = chatVR <- chatVersionRange let chatV = chatVR `peerConnChatVersion` chatVRange (cmdId, acId) <- agentAcceptContactAsync user True invId msg subMode PQSupportOff chatV - withFastStore $ \db -> do + withStore $ \db -> do Connection {connId = testCId} <- createRelayTestConnection db vr user acId ConnAccepted chatV subMode liftIO $ setCommandConnId db user cmdId testCId -- TODO [relays] owner, relays: TBC how to communicate member rejection rules from owner to relays