This commit is contained in:
spaced4ndy committed 2026-05-28 19:38:52 +04:00
1 parent 779a8a7cff
commit 7ca0d609d6
2 files changed
+2 -2

No files matched your search

+1 -1
View File
@@ -1238,7 +1238,7 @@ validateGroupRoster GroupRoster {version, roster = entries} =
-- Privileged members without a known key are skipped (recipients can't verify them).
buildGroupRoster :: Int -> [GroupMember] -> GroupRoster
buildGroupRoster version mods = GroupRoster {version, roster = mapMaybe rosterMember mods}
buildGroupRoster ver mods = GroupRoster {version = ver, roster = mapMaybe rosterMember mods}
where
rosterMember m@GroupMember {memberId, memberPubKey, memberRole}
| isRosterRole memberRole = (\k -> RosterMember {memberId, name = memberShortenedName m, key = MemberKey k, role = memberRole}) <$> memberPubKey