diff --git a/src/Simplex/Messaging/Agent/Store/SQLite/Migrations.hs b/src/Simplex/Messaging/Agent/Store/SQLite/Migrations.hs index 96891bc52..4362890b4 100644 --- a/src/Simplex/Messaging/Agent/Store/SQLite/Migrations.hs +++ b/src/Simplex/Messaging/Agent/Store/SQLite/Migrations.hs @@ -26,6 +26,7 @@ import Database.SQLite.Simple.QQ (sql) import qualified Database.SQLite3 as SQLite3 import Simplex.Messaging.Agent.Store.SQLite.Migrations.M20220101_initial import Simplex.Messaging.Agent.Store.SQLite.Migrations.M20220301_snd_queue_keys +import Simplex.Messaging.Agent.Store.SQLite.Migrations.M20220320_server_ips data Migration = Migration {name :: String, up :: Text} deriving (Show) @@ -33,7 +34,8 @@ data Migration = Migration {name :: String, up :: Text} schemaMigrations :: [(String, Query)] schemaMigrations = [ ("20220101_initial", m20220101_initial), - ("20220301_snd_queue_keys", m20220301_snd_queue_keys) + ("20220301_snd_queue_keys", m20220301_snd_queue_keys), + ("20220320_server_ips", m20220320_server_ips) ] -- | The list of migrations in ascending order by date diff --git a/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220320_server_ips.hs b/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220320_server_ips.hs index 6660f605a..a6c127ec9 100644 --- a/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220320_server_ips.hs +++ b/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220320_server_ips.hs @@ -5,8 +5,8 @@ module Simplex.Messaging.Agent.Store.SQLite.Migrations.M20220320_server_ips wher import Database.SQLite.Simple (Query) import Database.SQLite.Simple.QQ (sql) -m20220301_snd_queue_keys :: Query -m20220301_snd_queue_keys = +m20220320_server_ips :: Query +m20220320_server_ips = [sql| UPDATE servers SET host = '178.79.168.175' WHERE host = 'smp8.simplex.im'; UPDATE servers SET host = '178.79.169.107' WHERE host = 'smp9.simplex.im';