diff --git a/backend/src/app/binfile/common.clj b/backend/src/app/binfile/common.clj index b4d7bafdcb..1781860c05 100644 --- a/backend/src/app/binfile/common.clj +++ b/backend/src/app/binfile/common.clj @@ -633,7 +633,7 @@ (dissoc :team-id) (dissoc :migrations))) -(defn file->file-data-params +(defn- file->file-data-params [{:keys [id] :as file} & {:as opts}] (let [created-at (or (:created-at file) (ct/now)) modified-at (or (:modified-at file) created-at)] diff --git a/backend/src/app/features/fdata.clj b/backend/src/app/features/fdata.clj index 6a4bebe243..16afb9fd1a 100644 --- a/backend/src/app/features/fdata.clj +++ b/backend/src/app/features/fdata.clj @@ -172,16 +172,24 @@ (= backend "legacy-db") (cond (= type "main") - (db/update! cfg :file - {:data data} - {:id file-id} - {::db/return-keys false}) + (do + (db/delete! cfg :file-data + {:id id :file-id file-id :type "main"} + {::db/return-keys false}) + (db/update! cfg :file + {:data data} + {:id file-id} + {::db/return-keys false})) (= type "snapshot") - (db/update! cfg :file-change - {:data data} - {:file-id file-id :id id} - {::db/return-keys false}) + (do + (db/delete! cfg :file-data + {:id id :file-id file-id :type "snapshot"} + {::db/return-keys false}) + (db/update! cfg :file-change + {:data data} + {:file-id file-id :id id} + {::db/return-keys false})) (= type "fragment") (upsert-in-database cfg