blade/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2024-12-17 17:20:21 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

fix network status

Browse Source
This commit is contained in:
Alexander Bondarenko
2024-05-29 22:37:45 +03:00
parent a126215c8c
commit 561c923cdb
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+2 -3
View File
@@ -3426,10 +3426,9 @@ subscribeUserConnections vr onlyNeeded user = do
when (ce && not (M.null errConns)) $ forM_ (M.assocs errConns) $ \(acId, err) ->
forM_ (M.lookup acId connRefs) $ \ContactRef {localDisplayName} ->
toView CRContactSubError {user, contactName = localDisplayName, chatError = ChatErrorAgent err Nothing}
notifyAPI = unless (null statuses) $ toView $ CRNetworkStatuses (Just user) statuses
notifyAPI = toView $ CRNetworkStatuses (Just user) $ map status cts
where
statuses = mapMaybe status cts
status connId = ConnNetworkStatus (AgentConnId connId) . errorNetworkStatus <$> M.lookup connId errs
status connId = ConnNetworkStatus (AgentConnId connId) $ maybe NSConnected errorNetworkStatus (M.lookup connId errs)
errorNetworkStatus :: AgentErrorType -> NetworkStatus
errorNetworkStatus = NSError . \case
BROKER _ NETWORK -> "network"