core: manage chat relays initial (#6369)

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

@@ -20,6 +20,7 @@ import Simplex.Chat.Store.Postgres.Migrations.M20250813_delivery_tasks
 import Simplex.Chat.Store.Postgres.Migrations.M20250919_group_summary
 import Simplex.Chat.Store.Postgres.Migrations.M20250922_remove_unused_connections
 import Simplex.Chat.Store.Postgres.Migrations.M20251007_connections_sync
+import Simplex.Chat.Store.Postgres.Migrations.M20251016_chat_relays
 import Simplex.Messaging.Agent.Store.Shared (Migration (..))
 
 schemaMigrations :: [(String, Text, Maybe Text)]
@@ -39,7 +40,8 @@ schemaMigrations =
     ("20250813_delivery_tasks", m20250813_delivery_tasks, Just down_m20250813_delivery_tasks),
     ("20250919_group_summary", m20250919_group_summary, Just down_m20250919_group_summary),
     ("20250922_remove_unused_connections", m20250922_remove_unused_connections, Just down_m20250922_remove_unused_connections),
-    ("20251007_connections_sync", m20251007_connections_sync, Just down_m20251007_connections_sync)
+    ("20251007_connections_sync", m20251007_connections_sync, Just down_m20251007_connections_sync),
+    ("20251016_chat_relays", m20251016_chat_relays, Just down_m20251016_chat_relays)
   ]
 
 -- | The list of migrations in ascending order by date

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

@@ -0,0 +1,46 @@
+{-# LANGUAGE QuasiQuotes #-}
+
+module Simplex.Chat.Store.Postgres.Migrations.M20251016_chat_relays where
+
+import Data.Text (Text)
+import qualified Data.Text as T
+import Text.RawString.QQ (r)
+
+m20251016_chat_relays :: Text
+m20251016_chat_relays =
+  T.pack
+    [r|
+CREATE TABLE chat_relays(
+  chat_relay_id BIGINT PRIMARY KEY GENERATED ALWAYS AS IDENTITY,
+  address TEXT NOT NULL,
+  name TEXT NOT NULL,
+  domains TEXT NOT NULL,
+  preset SMALLINT NOT NULL DEFAULT 0,
+  tested SMALLINT,
+  enabled SMALLINT NOT NULL DEFAULT 1,
+  user_id BIGINT NOT NULL REFERENCES users ON DELETE CASCADE,
+  created_at TEXT NOT NULL DEFAULT (now()),
+  updated_at TEXT NOT NULL DEFAULT (now()),
+  UNIQUE(user_id, address),
+  UNIQUE(user_id, name)
+);
+
+CREATE INDEX idx_chat_relays_user_id ON chat_relays(user_id);
+
+ALTER TABLE users ADD COLUMN is_user_chat_relay SMALLINT NOT NULL DEFAULT 0;
+
+ALTER TABLE group_members ADD COLUMN is_chat_relay SMALLINT NOT NULL DEFAULT 0;
+|]
+
+down_m20251016_chat_relays :: Text
+down_m20251016_chat_relays =
+  T.pack
+    [r|
+ALTER TABLE group_members DROP COLUMN is_chat_relay;
+
+ALTER TABLE users DROP COLUMN is_user_chat_relay;
+
+DROP INDEX idx_chat_relays_user_id;
+
+DROP TABLE chat_relays;
+|]