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

core: only introduce to supporting moderators

Browse Source
This commit is contained in:
spaced4ndy
2025-04-28 15:03:17 +04:00
parent dd01ef5ae8
commit 6abffeb295
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Library/Internal.hs
+1 -1
View File
@@ -975,7 +975,7 @@ introduceToModerators vr user gInfo@GroupInfo {groupId} m@GroupMember {memberRol
else XMsgNew $ MCSimple $ extMsgContent (MCText pendingReviewMessage) Nothing
void $ sendDirectMemberMessage mConn msg groupId
modMs <- withStore' $ \db -> getGroupModerators db vr user gInfo
let rcpModMs = filter memberCurrent modMs
let rcpModMs = filter (\mem -> memberCurrent mem && maxVersion (memberChatVRange mem) >= groupKnockingVersion) modMs
introduceMember vr user gInfo m rcpModMs (Just $ MSMember $ memberId' m)
introduceToAll :: VersionRangeChat -> User -> GroupInfo -> GroupMember -> CM ()