Persist migrated files on srepl process-file helper

This commit is contained in:
Andrey Antukh 2025-03-18 15:18:28 +01:00
parent c169eef161
commit 4453eec687
2 changed files with 6 additions and 3 deletions

View file

@ -10,6 +10,7 @@
(:require (:require
[app.binfile.common :as bfc] [app.binfile.common :as bfc]
[app.common.data :as d] [app.common.data :as d]
[app.common.files.migrations :as fmg]
[app.common.files.validate :as cfv] [app.common.files.validate :as cfv]
[app.db :as db] [app.db :as db]
[app.features.components-v2 :as feat.comp-v2] [app.features.components-v2 :as feat.comp-v2]
@ -142,7 +143,9 @@
(update-fn file opts)))] (update-fn file opts)))]
(when (and (some? file') (when (and (some? file')
(not (identical? file file'))) (or (fmg/migrated? file)
(not (identical? file file'))))
(when validate? (when validate?
(cfv/validate-file-schema! file')) (cfv/validate-file-schema! file'))

View file

@ -96,13 +96,13 @@
(if (nil? migrations) (if (nil? migrations)
(generate-migrations-from-version version) (generate-migrations-from-version version)
migrations))) migrations)))
(migrate)
(update :features (fnil into #{}) (deref cfeat/*new*)) (update :features (fnil into #{}) (deref cfeat/*new*))
;; NOTE: in some future we can consider to apply ;; NOTE: in some future we can consider to apply
;; a migration to the whole database and remove ;; a migration to the whole database and remove
;; this code from this function that executes on ;; this code from this function that executes on
;; each file migration operation ;; each file migration operation
(update :features cfeat/migrate-legacy-features))))) (update :features cfeat/migrate-legacy-features)
(migrate)))))
(defn migrated? (defn migrated?
[file] [file]