From 7ca0d609d64722620f8ad26ca8e79aacb96e12bd Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Thu, 28 May 2026 19:38:52 +0400 Subject: [PATCH] wip --- src/Simplex/Chat/Library/Internal.hs | 2 +- tests/ChatTests/Groups.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Simplex/Chat/Library/Internal.hs b/src/Simplex/Chat/Library/Internal.hs index 550b5dfffc..2a037297ab 100644 --- a/src/Simplex/Chat/Library/Internal.hs +++ b/src/Simplex/Chat/Library/Internal.hs @@ -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 diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs index ef12b7ea31..7bd267257a 100644 --- a/tests/ChatTests/Groups.hs +++ b/tests/ChatTests/Groups.hs @@ -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)