IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: fix mark read queries (#1592)

Browse Source
This commit is contained in:
JRoberts
2022-12-16 18:32:37 +04:00
committed by GitHub
parent f5bd6eb4c3
commit e410fc7736
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Simplex/Chat/Store.hs
View File

@@ -4181,7 +4181,7 @@ updateDirectChatItemsRead db userId contactId itemsRange_ = do
UPDATE chat_items SET item_status = ?, updated_at = ?
WHERE user_id = ? AND contact_id = ? AND chat_item_id >= ? AND chat_item_id <= ? AND item_status = ?
|]
(userId, CISRcvRead, currentTs, contactId, fromItemId, toItemId, CISRcvNew)
(CISRcvRead, currentTs, userId, contactId, fromItemId, toItemId, CISRcvNew)
_ ->
DB.execute
db
@@ -4189,7 +4189,7 @@ updateDirectChatItemsRead db userId contactId itemsRange_ = do
UPDATE chat_items SET item_status = ?, updated_at = ?
WHERE user_id = ? AND contact_id = ? AND item_status = ?
|]
(userId, CISRcvRead, currentTs, contactId, CISRcvNew)
(CISRcvRead, currentTs, userId, contactId, CISRcvNew)
getDirectUnreadTimedItems :: DB.Connection -> User -> ContactId -> Maybe (ChatItemId, ChatItemId) -> IO [(ChatItemId, Int)]
getDirectUnreadTimedItems db User {userId} contactId itemsRange_ = case itemsRange_ of
@@ -4230,7 +4230,7 @@ updateGroupChatItemsRead db userId groupId itemsRange_ = do
UPDATE chat_items SET item_status = ?, updated_at = ?
WHERE user_id = ? AND group_id = ? AND chat_item_id >= ? AND chat_item_id <= ? AND item_status = ?
|]
(userId, CISRcvRead, currentTs, groupId, fromItemId, toItemId, CISRcvNew)
(CISRcvRead, currentTs, userId, groupId, fromItemId, toItemId, CISRcvNew)
_ ->
DB.execute
db
@@ -4238,7 +4238,7 @@ updateGroupChatItemsRead db userId groupId itemsRange_ = do
UPDATE chat_items SET item_status = ?, updated_at = ?
WHERE user_id = ? AND group_id = ? AND item_status = ?
|]
(userId, CISRcvRead, currentTs, groupId, CISRcvNew)
(CISRcvRead, currentTs, userId, groupId, CISRcvNew)
getGroupUnreadTimedItems :: DB.Connection -> User -> GroupId -> Maybe (ChatItemId, ChatItemId) -> IO [(ChatItemId, Int)]
getGroupUnreadTimedItems db User {userId} groupId itemsRange_ = case itemsRange_ of