From 7671225946c2cbc3fd69c220a9fde9bff9229904 Mon Sep 17 00:00:00 2001
From: "Evgeny @ SimpleX Chat"
 <259188159+evgeny-simplex@users.noreply.github.com>
Date: Sun, 28 Jun 2026 11:35:08 +0000
Subject: [PATCH] mapM_

---
 src/Simplex/Chat/Store/Direct.hs | 2 +-
 src/Simplex/Chat/Store/Groups.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Chat/Store/Direct.hs b/src/Simplex/Chat/Store/Direct.hs
index eb3d74c762..23da14a29a 100644
--- a/src/Simplex/Chat/Store/Direct.hs
+++ b/src/Simplex/Chat/Store/Direct.hs
@@ -407,7 +407,7 @@ createPreparedContact db cxt user p connLinkToConnect welcomeSharedMsgId domainV
   let prepared = Just (connLinkToConnect, welcomeSharedMsgId)
       ctUserPreferences = newContactUserPrefs user p
   contactId <- createContact_ db cxt user p ctUserPreferences prepared "" currentTs
-  forM_ domainVerified $ \v -> liftIO $ setContactDomainVerified db user contactId v
+  liftIO $ mapM_ (setContactDomainVerified db user contactId) domainVerified
   getContact db cxt user contactId
 
 updatePreparedContactUser :: DB.Connection -> StoreCxt -> User -> Contact -> User -> ExceptT StoreError IO Contact
diff --git a/src/Simplex/Chat/Store/Groups.hs b/src/Simplex/Chat/Store/Groups.hs
index ba849ceacf..893e7749f6 100644
--- a/src/Simplex/Chat/Store/Groups.hs
+++ b/src/Simplex/Chat/Store/Groups.hs
@@ -662,7 +662,7 @@ createPreparedGroup db gVar cxt user@User {userId, userContactId} groupProfile b
   hostMember_ <- forM hostMemberId_ $ getGroupMember db cxt user groupId
   forM_ hostMember_ $ \hostMember ->
     when business $ liftIO $ setGroupBusinessChatInfo groupId membership hostMember
-  forM_ domainVerified $ \v -> liftIO $ setGroupDomainVerified db user groupId v
+  liftIO $ mapM_ (setGroupDomainVerified db user groupId) domainVerified
   g <- getGroupInfo db cxt user groupId
   pure (g, hostMember_)
   where