core: add protocol field to files table (#2089)

src/Simplex/Chat/Migrations/M20230328_files_protocol.hs

@@ -0,0 +1,18 @@
+{-# LANGUAGE QuasiQuotes #-}
+
+module Simplex.Chat.Migrations.M20230328_files_protocol where
+
+import Database.SQLite.Simple (Query)
+import Database.SQLite.Simple.QQ (sql)
+
+m20230328_files_protocol :: Query
+m20230328_files_protocol =
+  [sql|
+ALTER TABLE files ADD COLUMN protocol TEXT NOT NULL DEFAULT 'smp';
+|]
+
+down_m20230328_files_protocol :: Query
+down_m20230328_files_protocol =
+  [sql|
+ALTER TABLE files DROP COLUMN protocol;
+|]

src/Simplex/Chat/Migrations/chat_schema.sql

@@ -200,7 +200,8 @@ CREATE TABLE files(
   file_inline TEXT,
   agent_snd_file_id BLOB NULL,
   private_snd_file_descr TEXT NULL,
-  agent_snd_file_deleted INTEGER DEFAULT 0 CHECK(agent_snd_file_deleted NOT NULL)
+  agent_snd_file_deleted INTEGER DEFAULT 0 CHECK(agent_snd_file_deleted NOT NULL),
+  protocol TEXT NOT NULL DEFAULT 'smp'
 );
 CREATE TABLE snd_files(
   file_id INTEGER NOT NULL REFERENCES files ON DELETE CASCADE,