From da51f337dcb224c4de3895f1b20ca5bc6b74c1d1 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Mon, 18 Sep 2023 13:05:39 +0400
Subject: [PATCH] remove deleteContactProfile_

---
 src/Simplex/Chat/Store/Direct.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/Simplex/Chat/Store/Direct.hs b/src/Simplex/Chat/Store/Direct.hs
index 9f541e1b52..9c45129385 100644
--- a/src/Simplex/Chat/Store/Direct.hs
+++ b/src/Simplex/Chat/Store/Direct.hs
@@ -254,12 +254,6 @@ getDeletedContacts db user@User {userId} = do
 getDeletedContact :: DB.Connection -> User -> Int64 -> ExceptT StoreError IO Contact
 getDeletedContact db user contactId = getContact_ db user contactId True
 
--- deleteContactProfile_ :: DB.Connection -> UserId -> Contact -> IO ()
--- deleteContactProfile_ db userId Contact {contactId} = do
---   -- TODO not quite clear why there is more than one profile in this case
---   profileIds <- map fromOnly <$> DB.query db "SELECT contact_profile_id FROM contacts WHERE user_id = ? AND contact_id = ?" (userId, contactId)
---   mapM_ (deleteUnusedProfile_ db userId) profileIds
-
 deleteContactProfile_ :: DB.Connection -> UserId -> ContactId -> IO ()
 deleteContactProfile_ db userId contactId =
   DB.execute