From 7fb72d6a90394ad86bdf1e9e9569bb74987d448a Mon Sep 17 00:00:00 2001 From: Diogo Date: Mon, 16 Dec 2024 10:16:20 +0000 Subject: [PATCH] remove delete tag if empty --- src/Simplex/Chat/Store/Direct.hs | 1 - src/Simplex/Chat/Store/Groups.hs | 1 - 2 files changed, 2 deletions(-) diff --git a/src/Simplex/Chat/Store/Direct.hs b/src/Simplex/Chat/Store/Direct.hs index bd30f71b36..66d9d41c6d 100644 --- a/src/Simplex/Chat/Store/Direct.hs +++ b/src/Simplex/Chat/Store/Direct.hs @@ -1040,7 +1040,6 @@ tagDirectChat db contactId tId = untagDirectChat :: DB.Connection -> User -> ContactId -> ChatTagId -> IO () untagDirectChat db user contactId tId = do untagDirectChat' db contactId tId - deleteChatTagIfEmpty db user tId untagDirectChat' :: DB.Connection -> ContactId -> ChatTagId -> IO () untagDirectChat' db contactId tId = diff --git a/src/Simplex/Chat/Store/Groups.hs b/src/Simplex/Chat/Store/Groups.hs index c7141b58df..aaa2f7eb25 100644 --- a/src/Simplex/Chat/Store/Groups.hs +++ b/src/Simplex/Chat/Store/Groups.hs @@ -2324,7 +2324,6 @@ tagGroupChat db groupId tId = untagGroupChat :: DB.Connection -> User -> GroupId -> ChatTagId -> IO () untagGroupChat db user gId tId = do untagGroupChat' db gId tId - deleteChatTagIfEmpty db user tId untagGroupChat' :: DB.Connection -> GroupId -> ChatTagId -> IO () untagGroupChat' db groupId tId =