This commit is contained in:
spaced4ndy
2025-09-04 17:20:11 +04:00
parent 85550922e2
commit 8d48fe03c8
+1 -1
View File
@@ -1504,7 +1504,7 @@ decreaseGroupMembersRequireAttention db User {userId} g@GroupInfo {groupId, memb
WHERE user_id = ? AND group_id = ?
|]
(userId, groupId)
pure g {membersRequireAttention = membersRequireAttention - 1}
pure g {membersRequireAttention = max 0 (membersRequireAttention - 1)}
increaseGroupMembersRequireAttention :: DB.Connection -> User -> GroupInfo -> IO GroupInfo
increaseGroupMembersRequireAttention db User {userId} g@GroupInfo {groupId, membersRequireAttention} = do