remove deleteSentProbe

This commit is contained in:
spaced4ndy
2023-09-18 12:49:07 +04:00
parent 80e0958346
commit 795f82837b
-8
View File
@@ -78,7 +78,6 @@ module Simplex.Chat.Store.Groups
createSentProbe,
createSentMemberProbe,
createSentProbeHash,
deleteSentProbe,
matchReceivedProbe,
matchReceivedMemberProbe,
matchReceivedProbeHash,
@@ -1221,13 +1220,6 @@ createSentProbeHash db userId probeId _to@Contact {contactId} = do
"INSERT INTO sent_probe_hashes (sent_probe_id, contact_id, user_id, created_at, updated_at) VALUES (?,?,?,?,?)"
(probeId, contactId, userId, currentTs, currentTs)
deleteSentProbe :: DB.Connection -> UserId -> Int64 -> IO ()
deleteSentProbe db userId probeId =
DB.execute
db
"DELETE FROM sent_probes WHERE user_id = ? AND sent_probe_id = ?"
(userId, probeId)
matchReceivedProbe :: DB.Connection -> User -> Contact -> Probe -> IO (Maybe Contact)
matchReceivedProbe db user@User {userId} _from@(Contact {contactId}) p@(Probe probe) =
matchReceivedProbe_ db user p $ \probeHash -> do