From 4e39a849f2f7472a7a38fea1b1500a2b20397b17 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Tue, 11 Nov 2025 18:09:16 +0400
Subject: [PATCH] log

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

diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs
index 40ab0fb3c3..33467941b7 100644
--- a/src/Simplex/Chat/Library/Subscriber.hs
+++ b/src/Simplex/Chat/Library/Subscriber.hs
@@ -3316,7 +3316,7 @@ runDeliveryJobWorker a deliveryKey Worker {doWork} = do
                         sendLoop bucketSize cursorGMId_ = do
                           mems <- withStore' $ \db -> getGroupMembersByCursor db vr user gInfo cursorGMId_ singleSenderGMId_ bucketSize
                           unless (null mems) $ do
-                            deliver body mems
+                            timeItToView ("deliver, " <> show (length mems) <> " mems") $ deliver body mems
                             let cursorGMId' = groupMemberId' $ last mems
                             withStore' $ \db -> updateDeliveryJobCursor db jobId cursorGMId'
                             unless (length mems < bucketSize) $ sendLoop bucketSize (Just cursorGMId')