core: fix opening chats on new unread items (after sent or viewed items) (#6747)

* core: fix opening chats on new unread items (after sent or viewed items)

* fix test

* sqlite schema and query plan change

* fix postgresql, update schema

* stabilize tests

---------

Co-authored-by: Evgeny @ SimpleX Chat <259188159+evgeny-simplex@users.noreply.github.com>

src/Simplex/Chat/Store/Postgres/Migrations.hs

@@ -27,6 +27,7 @@ import Simplex.Chat.Store.Postgres.Migrations.M20251230_strict_tables
 import Simplex.Chat.Store.Postgres.Migrations.M20260108_chat_indices
 import Simplex.Chat.Store.Postgres.Migrations.M20260122_has_link
 import Simplex.Chat.Store.Postgres.Migrations.M20260222_chat_relays
+import Simplex.Chat.Store.Postgres.Migrations.M20260403_item_viewed
 import Simplex.Messaging.Agent.Store.Shared (Migration (..))
 
 schemaMigrations :: [(String, Text, Maybe Text)]
@@ -53,7 +54,8 @@ schemaMigrations =
     ("20251230_strict_tables", m20251230_strict_tables, Just down_m20251230_strict_tables),
     ("20260108_chat_indices", m20260108_chat_indices, Just down_m20260108_chat_indices),
     ("20260122_has_link", m20260122_has_link, Just down_m20260122_has_link),
-    ("20260222_chat_relays", m20260222_chat_relays, Just down_m20260222_chat_relays)
+    ("20260222_chat_relays", m20260222_chat_relays, Just down_m20260222_chat_relays),
+    ("20260403_item_viewed", m20260403_item_viewed, Just down_m20260403_item_viewed)
   ]
 
 -- | The list of migrations in ascending order by date

src/Simplex/Chat/Store/Postgres/Migrations/M20260222_chat_relays.hs

@@ -1,15 +1,14 @@
+{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE QuasiQuotes #-}
 
 module Simplex.Chat.Store.Postgres.Migrations.M20260222_chat_relays where
 
 import Data.Text (Text)
-import qualified Data.Text as T
 import Text.RawString.QQ (r)
 
 m20260222_chat_relays :: Text
 m20260222_chat_relays =
-  T.pack
-    [r|
+  [r|
 CREATE TABLE chat_relays(
   chat_relay_id BIGINT PRIMARY KEY GENERATED ALWAYS AS IDENTITY,
   address BYTEA NOT NULL,
@@ -80,8 +79,7 @@ ALTER TABLE connections ADD COLUMN relay_test SMALLINT NOT NULL DEFAULT 0;
 
 down_m20260222_chat_relays :: Text
 down_m20260222_chat_relays =
-  T.pack
-    [r|
+  [r|
 UPDATE group_members SET member_role = 'observer' WHERE member_role = 'relay';
 
 ALTER TABLE users DROP COLUMN is_user_chat_relay;

src/Simplex/Chat/Store/Postgres/Migrations/M20260403_item_viewed.hs

@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE QuasiQuotes #-}
+
+module Simplex.Chat.Store.Postgres.Migrations.M20260403_item_viewed where
+
+import Data.Text (Text)
+import Text.RawString.QQ (r)
+
+m20260403_item_viewed :: Text
+m20260403_item_viewed =
+  [r|
+ALTER TABLE chat_items ADD COLUMN item_viewed SMALLINT NOT NULL DEFAULT 0;
+CREATE INDEX idx_chat_items_contacts_item_viewed ON chat_items(user_id, contact_id, item_viewed, created_at);
+CREATE INDEX idx_chat_items_groups_item_viewed ON chat_items(user_id, group_id, item_viewed, item_ts);
+|]
+
+down_m20260403_item_viewed :: Text
+down_m20260403_item_viewed =
+  [r|
+DROP INDEX idx_chat_items_contacts_item_viewed;
+DROP INDEX idx_chat_items_groups_item_viewed;
+ALTER TABLE chat_items DROP COLUMN item_viewed;
+|]

src/Simplex/Chat/Store/Postgres/Migrations/chat_schema.sql

@@ -344,7 +344,8 @@ CREATE TABLE test_chat_schema.chat_items (
     group_scope_group_member_id bigint,
     show_group_as_sender smallint DEFAULT 0 NOT NULL,
     has_link smallint DEFAULT 0 NOT NULL,
-    msg_signed text
+    msg_signed text,
+    item_viewed smallint DEFAULT 0 NOT NULL
 );
 
 
@@ -1906,6 +1907,10 @@ CREATE INDEX idx_chat_items_contacts_has_link_created_at ON test_chat_schema.cha
 
 
 
+CREATE INDEX idx_chat_items_contacts_item_viewed ON test_chat_schema.chat_items USING btree (user_id, contact_id, item_viewed, created_at);
+
+
+
 CREATE INDEX idx_chat_items_contacts_msg_content_tag_created_at ON test_chat_schema.chat_items USING btree (user_id, contact_id, msg_content_tag, created_at);
 
 
@@ -1978,6 +1983,10 @@ CREATE INDEX idx_chat_items_groups_item_ts ON test_chat_schema.chat_items USING
 
 
 
+CREATE INDEX idx_chat_items_groups_item_viewed ON test_chat_schema.chat_items USING btree (user_id, group_id, item_viewed, item_ts);
+
+
+
 CREATE INDEX idx_chat_items_groups_msg_content_tag_deleted ON test_chat_schema.chat_items USING btree (user_id, group_id, msg_content_tag, item_deleted, item_sent);