update server addresses

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 ()

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
                 ]
             )
       )

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: