core: exclude some fields from member profile when sharing in group (#3688)

This commit is contained in:
spaced4ndy
2024-01-15 19:58:09 +04:00
committed by GitHub
parent f4f8501eb8
commit d5cf9fbf5b
2 changed files with 34 additions and 29 deletions
+1 -1
View File
@@ -596,7 +596,7 @@ data MemberInfo = MemberInfo
memberInfo :: GroupMember -> MemberInfo
memberInfo GroupMember {memberId, memberRole, memberProfile, activeConn} =
MemberInfo memberId memberRole cvr (fromLocalProfile memberProfile)
MemberInfo memberId memberRole cvr (redactedMemberProfile $ fromLocalProfile memberProfile)
where
cvr = ChatVersionRange . fromJVersionRange . peerChatVRange <$> activeConn