From 3c944745eae7708314e06caf94805f116bb0463a Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Mon, 29 Jun 2026 19:05:38 +0400 Subject: [PATCH] wip --- src/Simplex/Chat/Store/SQLite/Migrations/chat_schema.sql | 1 + tests/ChatTests/Groups.hs | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Simplex/Chat/Store/SQLite/Migrations/chat_schema.sql b/src/Simplex/Chat/Store/SQLite/Migrations/chat_schema.sql index d4d395c1dc..1f46f25b5b 100644 --- a/src/Simplex/Chat/Store/SQLite/Migrations/chat_schema.sql +++ b/src/Simplex/Chat/Store/SQLite/Migrations/chat_schema.sql @@ -244,6 +244,7 @@ CREATE TABLE group_members( relay_link BLOB, member_pub_key BLOB, removed_at TEXT, + roster_served_version INTEGER, FOREIGN KEY(user_id, local_display_name) REFERENCES display_names(user_id, local_display_name) ON DELETE CASCADE diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs index 042a0451a8..95bf8b2640 100644 --- a/tests/ChatTests/Groups.hs +++ b/tests/ChatTests/Groups.hs @@ -9815,14 +9815,14 @@ testChannelSubscriberRosterCatchUp ps = recRole `shouldBe` "member" recKey `shouldBe` danKey where - memberId :: HasCallStack => TestCC -> T.Text -> IO ByteString + memberId :: TestCC -> T.Text -> IO ByteString memberId cc name = do rows <- withCCTransaction cc $ \db -> DB.query db "SELECT member_id FROM group_members WHERE local_display_name = ?" (Only name) :: IO [Only ByteString] case rows of [Only mid] -> pure mid _ -> fail $ "expected one group_members row for " <> T.unpack name - roleKeyById :: HasCallStack => TestCC -> ByteString -> IO (T.Text, Maybe ByteString) + roleKeyById :: TestCC -> ByteString -> IO (T.Text, Maybe ByteString) roleKeyById cc mid = do rows <- withCCTransaction cc $ \db -> DB.query db "SELECT member_role, member_pub_key FROM group_members WHERE member_id = ?" (Only mid) :: IO [(T.Text, Maybe ByteString)]