From 1224da4b51d8fb88112b80ef0d0bbe9689e9c198 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Mon, 27 Jul 2026 11:58:49 +0100
Subject: [PATCH] map

---
 src/Simplex/Chat/Store/Groups.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Simplex/Chat/Store/Groups.hs b/src/Simplex/Chat/Store/Groups.hs
index 1b3662f470..0c1ff51b05 100644
--- a/src/Simplex/Chat/Store/Groups.hs
+++ b/src/Simplex/Chat/Store/Groups.hs
@@ -1718,7 +1718,7 @@ setMembersMemberKeySent db memberIds = do
   DB.executeMany
     db
     "UPDATE group_members SET user_member_key_sent = ?, updated_at = ? WHERE group_member_id = ?"
-    [(BI True, currentTs, memberId) | memberId <- memberIds]
+    (map (BI True,currentTs,) memberIds)
 #endif
 
 setGroupMemberVerified :: DB.Connection -> User -> GroupMemberId -> Maybe Text -> IO ()