From 6970169edaf633b6e67e1658718c455719f72e9b Mon Sep 17 00:00:00 2001 From: "Evgeny @ SimpleX Chat" <259188159+evgeny-simplex@users.noreply.github.com> Date: Sat, 30 May 2026 07:43:02 +0000 Subject: [PATCH] migrations --- .../M20260530_public_group_access.hs | 29 +++++++++++++++++++ .../M20260530_public_group_access.hs | 28 ++++++++++++++++++ 2 files changed, 57 insertions(+) create mode 100644 src/Simplex/Chat/Store/Postgres/Migrations/M20260530_public_group_access.hs create mode 100644 src/Simplex/Chat/Store/SQLite/Migrations/M20260530_public_group_access.hs diff --git a/src/Simplex/Chat/Store/Postgres/Migrations/M20260530_public_group_access.hs b/src/Simplex/Chat/Store/Postgres/Migrations/M20260530_public_group_access.hs new file mode 100644 index 0000000000..82adcdd0b7 --- /dev/null +++ b/src/Simplex/Chat/Store/Postgres/Migrations/M20260530_public_group_access.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE QuasiQuotes #-} + +module Simplex.Chat.Store.Postgres.Migrations.M20260530_public_group_access where + +import Data.Text (Text) +import Text.RawString.QQ (r) + +m20260530_public_group_access :: Text +m20260530_public_group_access = + [r| +ALTER TABLE group_profiles ADD COLUMN group_web_page TEXT; +ALTER TABLE group_profiles ADD COLUMN group_domain TEXT; +ALTER TABLE group_profiles ADD COLUMN domain_web_page BIGINT; +ALTER TABLE group_profiles ADD COLUMN allow_embedding BIGINT; + +ALTER TABLE group_relays ADD COLUMN base_web_url TEXT; +|] + +down_m20260530_public_group_access :: Text +down_m20260530_public_group_access = + [r| +ALTER TABLE group_relays DROP COLUMN base_web_url; + +ALTER TABLE group_profiles DROP COLUMN allow_embedding; +ALTER TABLE group_profiles DROP COLUMN domain_web_page; +ALTER TABLE group_profiles DROP COLUMN group_domain; +ALTER TABLE group_profiles DROP COLUMN group_web_page; +|] diff --git a/src/Simplex/Chat/Store/SQLite/Migrations/M20260530_public_group_access.hs b/src/Simplex/Chat/Store/SQLite/Migrations/M20260530_public_group_access.hs new file mode 100644 index 0000000000..9ffc74347d --- /dev/null +++ b/src/Simplex/Chat/Store/SQLite/Migrations/M20260530_public_group_access.hs @@ -0,0 +1,28 @@ +{-# LANGUAGE QuasiQuotes #-} + +module Simplex.Chat.Store.SQLite.Migrations.M20260530_public_group_access where + +import Database.SQLite.Simple (Query) +import Database.SQLite.Simple.QQ (sql) + +m20260530_public_group_access :: Query +m20260530_public_group_access = + [sql| +ALTER TABLE group_profiles ADD COLUMN group_web_page TEXT; +ALTER TABLE group_profiles ADD COLUMN group_domain TEXT; +ALTER TABLE group_profiles ADD COLUMN domain_web_page INTEGER; +ALTER TABLE group_profiles ADD COLUMN allow_embedding INTEGER; + +ALTER TABLE group_relays ADD COLUMN base_web_url TEXT; +|] + +down_m20260530_public_group_access :: Query +down_m20260530_public_group_access = + [sql| +ALTER TABLE group_relays DROP COLUMN base_web_url; + +ALTER TABLE group_profiles DROP COLUMN allow_embedding; +ALTER TABLE group_profiles DROP COLUMN domain_web_page; +ALTER TABLE group_profiles DROP COLUMN group_domain; +ALTER TABLE group_profiles DROP COLUMN group_web_page; +|]