dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-06-06 19:52:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

refactor

Browse Source
This commit is contained in:
spaced4ndy
2024-06-26 20:44:33 +04:00
parent f314762067
commit 7fb5e07295
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+2 -5
View File
@@ -2265,11 +2265,8 @@ processChatCommand' vr = \case
where
getUserSrvs :: forall p. (ProtocolTypeI p, UserProtocol p) => User -> SProtocolType p -> CM [ProtocolServer p]
getUserSrvs user protocol = do
ChatConfig {defaultServers} <- asks config
let defServers = cfgServers protocol defaultServers
servers <- map (\ServerCfg {server} -> server) <$> withStore' (`getProtocolServers` user)
let srvs = if null servers then L.toList defServers else servers
pure $ map protoServer srvs
(srvCfgs, _) <- getUserServers user protocol
pure $ map (\ServerCfg {server} -> protoServer server) (L.toList srvCfgs)
ResetAgentServersStats -> withAgent resetAgentServersStats >> ok_
GetAgentSubsSummary userId -> withUserId userId $ \user -> do
agentSubsSummary <- lift $ withAgent' getAgentSubsSummary