From 9e210256d2489aa76d4dd09667dfd6563aae993f Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Wed, 3 Aug 2022 13:56:35 +0100
Subject: [PATCH] core: add delete group logs (#879)

---
 src/Simplex/Chat/Store.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/Simplex/Chat/Store.hs b/src/Simplex/Chat/Store.hs
index 21b43fd351..9e126fecf8 100644
--- a/src/Simplex/Chat/Store.hs
+++ b/src/Simplex/Chat/Store.hs
@@ -1343,16 +1343,25 @@ getGroup db user groupId = do
 
 deleteGroupConnectionsAndFiles :: DB.Connection -> UserId -> Group -> IO ()
 deleteGroupConnectionsAndFiles db userId (Group GroupInfo {groupId} members) = do
+  print "deleteGroupConnectionsAndFiles"
   forM_ members $ \m -> DB.execute db "DELETE FROM connections WHERE user_id = ? AND group_member_id = ?" (userId, groupMemberId' m)
+  print "deleteGroupConnectionsAndFiles: connections"
   DB.execute db "DELETE FROM files WHERE user_id = ? AND group_id = ?" (userId, groupId)
+  print "deleteGroupConnectionsAndFiles: files"
 
 deleteGroup :: DB.Connection -> User -> Group -> IO ()
 deleteGroup db User {userId} (Group GroupInfo {groupId, localDisplayName} _) = do
+  print "deleteGroup"
   DB.execute db "DELETE FROM chat_items WHERE user_id = ? AND group_id = ?" (userId, groupId)
+  print "deleteGroup: chat_items"
   DB.execute db "DELETE FROM group_members WHERE user_id = ? AND group_id = ?" (userId, groupId)
+  print "deleteGroup: group_members"
   deleteGroupProfile_ db userId groupId
+  print "deleteGroup: deleteGroupProfile_"
   DB.execute db "DELETE FROM groups WHERE user_id = ? AND group_id = ?" (userId, groupId)
+  print "deleteGroup: groups"
   DB.execute db "DELETE FROM display_names WHERE user_id = ? AND local_display_name = ?" (userId, localDisplayName)
+  print "deleteGroup: display_names"
 
 deleteGroupProfile_ :: DB.Connection -> UserId -> GroupId -> IO ()
 deleteGroupProfile_ db userId groupId =