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 =