core, ui: admission message (#5848)

src/Simplex/Chat/Store/Groups.hs

@@ -56,6 +56,7 @@ module Simplex.Chat.Store.Groups
     getGroupMembers,
     getGroupModerators,
     getGroupMembersForExpiration,
+    getGroupMembersCount,
     getGroupCurrentMembersCount,
     deleteGroupChatItems,
     deleteGroupMembers,
@@ -944,6 +945,11 @@ toContactMember :: VersionRangeChat -> User -> (GroupMemberRow :. MaybeConnectio
 toContactMember vr User {userContactId} (memberRow :. connRow) =
   (toGroupMember userContactId memberRow) {activeConn = toMaybeConnection vr connRow}
 
+getGroupMembersCount :: DB.Connection -> User -> GroupInfo -> IO Int
+getGroupMembersCount db User {userId} GroupInfo {groupId} =
+  fromOnly . head
+    <$> DB.query db "SELECT COUNT(1) FROM group_members WHERE group_id = ? AND user_id = ?" (groupId, userId)
+
 getGroupCurrentMembersCount :: DB.Connection -> User -> GroupInfo -> IO Int
 getGroupCurrentMembersCount db User {userId} GroupInfo {groupId} = do
   statuses :: [GroupMemberStatus] <-

src/Simplex/Chat/Store/SQLite/Migrations/chat_query_plans.txt

@@ -5650,6 +5650,10 @@ Query: SELECT COUNT(1) FROM contacts WHERE user_id = ? AND chat_item_ttl > 0
 Plan:
 SEARCH contacts USING INDEX idx_contacts_chat_ts (user_id=?)
 
+Query: SELECT COUNT(1) FROM group_members WHERE group_id = ? AND user_id = ?
+Plan:
+SEARCH group_members USING COVERING INDEX idx_group_members_group_id (user_id=? AND group_id=?)
+
 Query: SELECT COUNT(1) FROM groups WHERE user_id = ? AND chat_item_ttl > 0
 Plan:
 SEARCH groups USING INDEX idx_groups_chat_ts (user_id=?)