From bf48642f5f337b8f2880670f1ce52df1d1c932ac Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Thu, 4 Sep 2025 16:22:13 +0400
Subject: [PATCH] don't let go below 0

---
 src/Simplex/Chat/Store/Groups.hs   |  5 ++++-
 src/Simplex/Chat/Store/Messages.hs | 24 ++++++++++++++++++------
 2 files changed, 22 insertions(+), 7 deletions(-)

diff --git a/src/Simplex/Chat/Store/Groups.hs b/src/Simplex/Chat/Store/Groups.hs
index f7b07daad7..f2774a0e91 100644
--- a/src/Simplex/Chat/Store/Groups.hs
+++ b/src/Simplex/Chat/Store/Groups.hs
@@ -1497,7 +1497,10 @@ decreaseGroupMembersRequireAttention db User {userId} g@GroupInfo {groupId, memb
     db
     [sql|
       UPDATE groups
-      SET members_require_attention = members_require_attention - 1
+      SET members_require_attention = CASE
+            WHEN members_require_attention >= 1 THEN members_require_attention - 1
+            ELSE 0
+          END
       WHERE user_id = ? AND group_id = ?
     |]
     (userId, groupId)
diff --git a/src/Simplex/Chat/Store/Messages.hs b/src/Simplex/Chat/Store/Messages.hs
index ded07716f7..a06f2c3a12 100644
--- a/src/Simplex/Chat/Store/Messages.hs
+++ b/src/Simplex/Chat/Store/Messages.hs
@@ -427,11 +427,14 @@ updateChatTsStats db vr user@User {userId} chatDirection chatTs chatStats_ = cas
                 [sql|
                   UPDATE groups
                   SET chat_ts = ?,
-                      members_require_attention = members_require_attention - 1
+                      members_require_attention = CASE
+                        WHEN members_require_attention >= 1 THEN members_require_attention - 1
+                        ELSE 0
+                      END
                   WHERE user_id = ? AND group_id = ?
                 |]
                 (chatTs, userId, groupId)
-              pure $ GroupChat g {membersRequireAttention = membersRequireAttention - 1, chatTs = Just chatTs} (Just $ GCSIMemberSupport (Just member'))
+              pure $ GroupChat g {membersRequireAttention = max 0 (membersRequireAttention - 1), chatTs = Just chatTs} (Just $ GCSIMemberSupport (Just member'))
           | otherwise -> do
               DB.execute
                 db
@@ -2117,13 +2120,22 @@ updateGroupScopeUnreadStats db vr user g@GroupInfo {membership} scopeInfo (unrea
         db
         [sql|
           UPDATE group_members
-          SET support_chat_items_unread = support_chat_items_unread - ?,
-              support_chat_items_member_attention = support_chat_items_member_attention - ?,
-              support_chat_items_mentions = support_chat_items_mentions - ?,
+          SET support_chat_items_unread = CASE
+                WHEN support_chat_items_unread >= ? THEN support_chat_items_unread - ?
+                ELSE 0
+              END,
+              support_chat_items_member_attention = CASE
+                WHEN support_chat_items_member_attention >= ? THEN support_chat_items_member_attention - ?
+                ELSE 0
+              END,
+              support_chat_items_mentions = CASE
+                WHEN support_chat_items_mentions >= ? THEN support_chat_items_mentions - ?
+                ELSE 0
+              END,
               updated_at = ?
           WHERE group_member_id = ?
         |]
-        (unread, unanswered, mentions, currentTs, groupMemberId)
+        (unread, unread, unanswered, unanswered, mentions, mentions, currentTs, groupMemberId)
       m_ <- runExceptT $ getGroupMemberById db vr user groupMemberId
       pure $ either (const m) id m_ -- Left shouldn't happen, but types require it