From 8b5550812fc5619eee8f5e810f757e6858435faf Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Thu, 28 May 2026 14:06:32 +0400 Subject: [PATCH] wip --- src/Simplex/Chat/Library/Subscriber.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs index fbbcb55e73..e07bbe0ca8 100644 --- a/src/Simplex/Chat/Library/Subscriber.hs +++ b/src/Simplex/Chat/Library/Subscriber.hs @@ -3824,11 +3824,7 @@ runDeliveryJobWorker a deliveryKey Worker {doWork} = do then pure (body, [], [], []) else do -- all members' profiles disseminate; privileged key/role come from the roster, not here - let (encoderErrs, validLabeled) = - partitionEithers - [ (\bs -> (s, bs)) <$> encodeMemberNew vr gInfo s - | (s, _) <- senders - ] + let (encoderErrs, validLabeled) = partitionEithers [(\bs -> (s, bs)) <$> encodeMemberNew vr gInfo s | (s, _) <- senders] (extBody', inBody, overflowLabeled, large1) = batchProfilesWithBody maxEncodedMsgLength body validLabeled (overflowBatches', large2) = batchProfiles maxEncodedMsgLength overflowLabeled packerErrs = [ChatError (CEInternalError $ "oversized profile element for member " <> show (groupMemberId' s)) | s <- large1 <> large2]