From 9b90d6198e835bdfbdaaee7afea6902b5e47168d Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Tue, 28 Jul 2026 11:21:20 +0100 Subject: [PATCH] diff --- src/Simplex/Chat/Library/Internal.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/Simplex/Chat/Library/Internal.hs b/src/Simplex/Chat/Library/Internal.hs index d7f3aa2a5d..1b248e3af1 100644 --- a/src/Simplex/Chat/Library/Internal.hs +++ b/src/Simplex/Chat/Library/Internal.hs @@ -2476,17 +2476,17 @@ sendRelayCapIfNeeded user gInfo = do withStore' $ \db -> updateRelaySentWebDomain db gInfo currentWebDomain sendGroupMessages :: MsgEncodingI e => User -> GroupInfo -> Maybe GroupChatScope -> ShowGroupAsSender -> [GroupMember] -> Bool -> NonEmpty (ChatMsgEvent e) -> CM (NonEmpty (Either ChatError SndMessage), GroupSndResult) -sendGroupMessages user gInfo scope asGroup members sign events = do - gInfo' <- ensureUserMemberKey gInfo - sendGroupProfileUpdate user gInfo' scope asGroup members - sendGroupMessages_ user gInfo' members sign events +sendGroupMessages user gInfo' scope asGroup members sign events = do + gInfo <- ensureUserMemberKey gInfo' + sendGroupProfileUpdate user gInfo scope asGroup members + sendGroupMessages_ user gInfo members sign events -- per-item signer variant of sendGroupMessages (used for per-item delete signing); preserves the profile-update prelude sendGroupSignedMessages :: MsgEncodingI e => User -> GroupInfo -> Maybe GroupChatScope -> ShowGroupAsSender -> [GroupMember] -> NonEmpty (Maybe MsgSigning, ChatMsgEvent e) -> CM (NonEmpty (Either ChatError SndMessage), GroupSndResult) -sendGroupSignedMessages user gInfo scope asGroup members signedEvents = do - gInfo' <- ensureUserMemberKey gInfo - sendGroupProfileUpdate user gInfo' scope asGroup members - sendGroupSignedMessages_ gInfo' members signedEvents +sendGroupSignedMessages user gInfo' scope asGroup members signedEvents = do + gInfo <- ensureUserMemberKey gInfo' + sendGroupProfileUpdate user gInfo scope asGroup members + sendGroupSignedMessages_ gInfo members signedEvents sendGroupProfileUpdate :: User -> GroupInfo -> Maybe GroupChatScope -> ShowGroupAsSender -> [GroupMember] -> CM () sendGroupProfileUpdate user gInfo scope asGroup members