diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs index 081a219735..049d8783d9 100644 --- a/src/Simplex/Chat.hs +++ b/src/Simplex/Chat.hs @@ -552,6 +552,10 @@ processAgentMessage user@User {userId, profile} agentConnId agentMessage = do ackMsgDeliveryEvent conn meta SENT msgId -> sentMsgDeliveryEvent conn msgId + -- TODO print errors + MERR _ _ -> pure () + ERR _ -> pure () + -- TODO add debugging output _ -> pure () Just ct@Contact {localDisplayName = c} -> case agentMsg of MSG meta msgBody -> do @@ -611,6 +615,10 @@ processAgentMessage user@User {userId, profile} agentConnId agentMessage = do showContactSubscribed c showToast (c <> "> ") "is active" setActive $ ActiveC c + -- TODO print errors + MERR _ _ -> pure () + ERR _ -> pure () + -- TODO add debugging output _ -> pure () processGroupMessage :: ACommand 'Agent -> Connection -> GroupName -> GroupMember -> m () @@ -695,6 +703,10 @@ processAgentMessage user@User {userId, profile} agentConnId agentMessage = do ackMsgDeliveryEvent conn meta SENT msgId -> sentMsgDeliveryEvent conn msgId + -- TODO print errors + MERR _ _ -> pure () + ERR _ -> pure () + -- TODO add debugging output _ -> pure () processSndFileConn :: ACommand 'Agent -> Connection -> SndFileTransfer -> m () @@ -724,6 +736,9 @@ processAgentMessage user@User {userId, profile} agentConnId agentMessage = do _ -> chatError $ CEFileSend fileId err MSG meta _ -> withAckMessage agentConnId meta $ pure () + -- TODO print errors + ERR _ -> pure () + -- TODO add debugging output _ -> pure () processRcvFileConn :: ACommand 'Agent -> Connection -> RcvFileTransfer -> m () @@ -761,6 +776,10 @@ processAgentMessage user@User {userId, profile} agentConnId agentMessage = do withAgent (`deleteConnection` agentConnId) RcvChunkDuplicate -> pure () RcvChunkError -> badRcvFileChunk ft $ "incorrect chunk number " <> show chunkNo + -- TODO print errors + MERR _ _ -> pure () + ERR _ -> pure () + -- TODO add debugging output _ -> pure () processUserContactRequest :: ACommand 'Agent -> Connection -> UserContact -> m () @@ -772,6 +791,10 @@ processAgentMessage user@User {userId, profile} agentConnId agentMessage = do XInfo p -> profileContactRequest invId p -- TODO show/log error, other events in contact request _ -> pure () + -- TODO print errors + MERR _ _ -> pure () + ERR _ -> pure () + -- TODO add debugging output _ -> pure () where profileContactRequest :: InvitationId -> Profile -> m () diff --git a/src/Simplex/Chat/Options.hs b/src/Simplex/Chat/Options.hs index 474af73814..d5421a7e15 100644 --- a/src/Simplex/Chat/Options.hs +++ b/src/Simplex/Chat/Options.hs @@ -39,8 +39,9 @@ chatOpts appDir = \(default: smp4.simplex.im,smp5.simplex.im,smp6.simplex.im)" <> value ( L.fromList - [ "smp://CTMzyymBBawF0yuMln3UxTip6RgFVtYPL8UYuCoIBwE=@139.162.205.110", -- London, UK - "smp://t82czNx4tiftzbk_M4KEITL1RS9CmcTWiCLHSlNsEZ8=@96.126.97.196" -- Fremont, CA + [ "smp://u2dS9sG8nMNURyZwqASV4yROM28Er0luVTx5X1CsMrU=@smp4.simplex.im", -- London, UK + "smp://hpq7_4gGJiilmz5Rf-CswuU5kZGkm_zOIooSw6yALRg=@smp5.simplex.im", -- Fremont, CA + "smp://PQUV2eL0t7OStZOoAsPEV2QYWt4-xilbakvGUGOItUo=@smp6.simplex.im" -- Dallas, TX ] ) ) diff --git a/stack.yaml b/stack.yaml index c6c9cf0fde..7d9938bdee 100644 --- a/stack.yaml +++ b/stack.yaml @@ -41,7 +41,7 @@ extra-deps: # - simplexmq-0.5.2@sha256:3544e479f353c1bbc6aa9405ef6976b78364f437d8af9cc45b9e0b228429e240,7884 # - ../simplexmq - github: simplex-chat/simplexmq - commit: 5f20f0124a16a5b20ef9dba28d5d9cdb84290afd + commit: bfa4911217b71527a6fbaf73b242b5684aaf9fce - github: simplex-chat/hs-tls commit: cea6d52c512716ff09adcac86ebc95bb0b3bb797 subdirs: