From a1d2f4cda9858ba6d3c15153877ef47c07da1fac Mon Sep 17 00:00:00 2001
From: Alexander Bondarenko <486682+dpwiz@users.noreply.github.com>
Date: Mon, 27 May 2024 22:22:37 +0300
Subject: [PATCH] give active user a minor priority

---
 src/Simplex/Chat.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index f84b780e03..020d833427 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -410,8 +410,13 @@ startChatController mainApp = do
 
 subscribeUsers :: Bool -> [User] -> CM' ()
 subscribeUsers onlyNeeded users = do
+  let (us, us') = partition activeUser users
   vr <- chatVersionRange'
-  forM_ users $ runExceptT . subscribeUserConnections vr onlyNeeded
+  subscribe vr us
+  subscribe vr us'
+  where
+    subscribe :: VersionRangeChat -> [User] -> CM' ()
+    subscribe vr = mapM_ $ runExceptT . subscribeUserConnections vr onlyNeeded
 
 startFilesToReceive :: [User] -> CM' ()
 startFilesToReceive users = do