dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-07-12 11:49:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
spaced4ndy
2026-05-28 19:38:52 +04:00
parent 779a8a7cff
commit 7ca0d609d6
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Library/Internal.hs
+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
tests/ChatTests/Groups.hs
+1 -1
View File
@@ -20,7 +20,7 @@ import Control.Monad (forM_, void, when)
import Data.Bifunctor (second)
import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as B
import Data.Maybe (fromMaybe, isJust, listToMaybe, maybeToList)
import Data.Maybe (fromMaybe, isJust, maybeToList)
import Data.Time (UTCTime)
import Data.Int (Int64)
import Data.List (intercalate, isInfixOf)