xftp: delete agent rcv files on completion, error, item delete (#2040)

src/Simplex/Chat/Migrations/M20230321_agent_file_deleted.hs

@@ -0,0 +1,20 @@
+{-# LANGUAGE QuasiQuotes #-}
+
+module Simplex.Chat.Migrations.M20230321_agent_file_deleted where
+
+import Database.SQLite.Simple (Query)
+import Database.SQLite.Simple.QQ (sql)
+
+m20230321_agent_file_deleted :: Query
+m20230321_agent_file_deleted =
+  [sql|
+PRAGMA ignore_check_constraints=ON;
+
+ALTER TABLE files ADD COLUMN agent_snd_file_deleted INTEGER DEFAULT 0 CHECK (agent_snd_file_deleted NOT NULL);
+UPDATE files SET agent_snd_file_deleted = 0;
+
+ALTER TABLE rcv_files ADD COLUMN agent_rcv_file_deleted INTEGER DEFAULT 0 CHECK (agent_rcv_file_deleted NOT NULL);
+UPDATE rcv_files SET agent_rcv_file_deleted = 0;
+
+PRAGMA ignore_check_constraints=OFF;
+|]

src/Simplex/Chat/Migrations/chat_schema.sql

@@ -195,7 +195,8 @@ CREATE TABLE files(
   ci_file_status TEXT,
   file_inline TEXT,
   agent_snd_file_id BLOB NULL,
-  private_snd_file_descr TEXT NULL
+  private_snd_file_descr TEXT NULL,
+  agent_snd_file_deleted INTEGER DEFAULT 0 CHECK(agent_snd_file_deleted NOT NULL)
 );
 CREATE TABLE snd_files(
   file_id INTEGER NOT NULL REFERENCES files ON DELETE CASCADE,
@@ -222,7 +223,8 @@ CREATE TABLE rcv_files(
   file_inline TEXT,
   file_descr_id INTEGER NULL
   REFERENCES xftp_file_descriptions ON DELETE SET NULL,
-  agent_rcv_file_id BLOB NULL
+  agent_rcv_file_id BLOB NULL,
+  agent_rcv_file_deleted INTEGER DEFAULT 0 CHECK(agent_rcv_file_deleted NOT NULL)
 );
 CREATE TABLE snd_file_chunks(
   file_id INTEGER NOT NULL,