dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-04-14 05:16:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

smp server: allow getting and deleting short links for the old contact queues (#1549)

Browse Source 
* smp server: allow getting and deleting short links for the old contact queues

* fix verifaction of legacy contact queues

* test
This commit is contained in:
Evgeny
2025-05-25 17:03:02 +01:00
committed by GitHub
parent 56ea2fdd56
commit 07eaf9157b
5 changed files with 85 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Simplex/Messaging/Server/QueueStore/Postgres.hs
View File

@@ -25,6 +25,7 @@ module Simplex.Messaging.Server.QueueStore.Postgres
foldQueueRecs,
handleDuplicate,
withLog_,
withDB',
)
where
@@ -138,7 +139,7 @@ instance StoreQueueClass q => QueueStoreClass q (PostgresQueueStore q) where
db
[sql|
SELECT
(SELECT COUNT(1) FROM msg_queues WHERE deleted_at IS NULL) AS queue_count,
(SELECT COUNT(1) FROM msg_queues WHERE deleted_at IS NULL) AS queue_count,
(SELECT COUNT(1) FROM msg_queues WHERE deleted_at IS NULL AND notifier_id IS NOT NULL) AS notifier_count
|]
pure QueueCounts {queueCount, notifierCount}
@@ -221,7 +222,7 @@ instance StoreQueueClass q => QueueStoreClass q (PostgresQueueStore q) where
_ -> throwE AUTH
addQueueLinkData :: PostgresQueueStore q -> q -> LinkId -> QueueLinkData -> IO (Either ErrorType ())
addQueueLinkData st sq lnkId d =
addQueueLinkData st sq lnkId d =
withQueueRec sq "addQueueLinkData" $ \q -> case queueData q of
Nothing ->
addLink q $ \db -> DB.execute db qry (d :. (lnkId, rId))
@@ -335,7 +336,7 @@ instance StoreQueueClass q => QueueStoreClass q (PostgresQueueStore q) where
unblockQueue st sq =
setStatusDB "unblockQueue" st sq EntityActive $
withLog "unblockQueue" st (`logUnblockQueue` recipientId sq)
updateQueueTime :: PostgresQueueStore q -> q -> RoundedSystemTime -> IO (Either ErrorType QueueRec)
updateQueueTime st sq t =
withQueueRec sq "updateQueueTime" $ \q@QueueRec {updatedAt} ->