mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-03-30 16:26:02 +00:00
a7b43b1a3e
* agent: use strict tables * migrate existing tables to strict * test: verify that all tables are strict * fix column types for device_token and ntf_mode * fix encodings and column types for ntf_sub_action and ntf_sub_smp_action * update schema * remove debug.trace * log
32 lines
1.8 KiB
Haskell
32 lines
1.8 KiB
Haskell
{-# LANGUAGE NamedFieldPuns #-}
|
|
|
|
module Simplex.Messaging.Agent.Store.Postgres.Migrations.App (appMigrations) where
|
|
|
|
import Data.List (sortOn)
|
|
import Data.Text (Text)
|
|
import Simplex.Messaging.Agent.Store.Postgres.Migrations.M20241210_initial
|
|
import Simplex.Messaging.Agent.Store.Postgres.Migrations.M20250203_msg_bodies
|
|
import Simplex.Messaging.Agent.Store.Postgres.Migrations.M20250322_short_links
|
|
import Simplex.Messaging.Agent.Store.Postgres.Migrations.M20250702_conn_invitations_remove_cascade_delete
|
|
import Simplex.Messaging.Agent.Store.Postgres.Migrations.M20251009_queue_to_subscribe
|
|
import Simplex.Messaging.Agent.Store.Postgres.Migrations.M20251010_client_notices
|
|
import Simplex.Messaging.Agent.Store.Postgres.Migrations.M20251230_strict_tables
|
|
import Simplex.Messaging.Agent.Store.Shared (Migration (..))
|
|
|
|
schemaMigrations :: [(String, Text, Maybe Text)]
|
|
schemaMigrations =
|
|
[ ("20241210_initial", m20241210_initial, Nothing),
|
|
("20250203_msg_bodies", m20250203_msg_bodies, Just down_m20250203_msg_bodies),
|
|
("20250322_short_links", m20250322_short_links, Just down_m20250322_short_links),
|
|
("20250702_conn_invitations_remove_cascade_delete", m20250702_conn_invitations_remove_cascade_delete, Just down_m20250702_conn_invitations_remove_cascade_delete),
|
|
("20251009_queue_to_subscribe", m20251009_queue_to_subscribe, Just down_m20251009_queue_to_subscribe),
|
|
("20251010_client_notices", m20251010_client_notices, Just down_m20251010_client_notices),
|
|
("20251230_strict_tables", m20251230_strict_tables, Just down_m20251230_strict_tables)
|
|
]
|
|
|
|
-- | The list of migrations in ascending order by date
|
|
appMigrations :: [Migration]
|
|
appMigrations = sortOn name $ map migration schemaMigrations
|
|
where
|
|
migration (name, up, down) = Migration {name, up, down = down}
|