engineering/java-topology
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

comms/voip/smtp: 30 CWE-407 defects + 9 CLEAN; 224 sites, 101 ecosystems

Browse source
This commit is contained in:
russell@unturf.com 2026-03-27 14:37:02 -04:00
parent 4d3fcc8e73
commit b3842ab6b8
86 changed files with 6516 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
defects/simplex-chat/patch/simplex-chat-0003.patch Normal file
View file

@ -0,0 +1,17 @@
--- a/src/Simplex/Chat/Library/Internal.hs
+++ b/src/Simplex/Chat/Library/Internal.hs
@@ -1064,11 +1064,12 @@ introduceToRemaining :: VersionRangeChat -> User -> GroupInfo -> GroupMember -> CM ()
introduceToRemaining vr user gInfo m = do
(members, introducedGMIds) <-
withStore' $ \db -> (,) <$> getGroupMembers db vr user gInfo <*> getIntroducedGroupMemberIds db m
- let recipients = filter (introduceMemP introducedGMIds) members
+ let introducedSet = S.fromList introducedGMIds
+ recipients = filter (introduceMemP introducedSet) members
introduceMember vr user gInfo m recipients Nothing
where
- introduceMemP introducedGMIds mem =
+ introduceMemP introducedSet mem =
memberCurrent mem
- && groupMemberId' mem `notElem` introducedGMIds
+ && groupMemberId' mem `S.notMember` introducedSet
&& groupMemberId' mem /= groupMemberId' m