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