From 7fb5e072951e34ea8adcafc64c93309b6b9bba64 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Wed, 26 Jun 2024 20:44:33 +0400
Subject: [PATCH] refactor

---
 src/Simplex/Chat.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index 6bd13848a2..a979fc988d 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -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