3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-25 22:26:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add minor improvements to process-files! srepl helper

Browse source
This commit is contained in:
Andrey Antukh 2024-01-31 12:18:13 +01:00
parent db5946d1ab
commit 13ca5d1f1a
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
backend/src/app/srepl/helpers.clj
View file

@ -258,8 +258,10 @@
max-jobs max-jobs
start-at start-at
on-file on-file
validate?
rollback?] rollback?]
:or {max-jobs 1 :or {max-jobs 1
validate? true
rollback? true}}] rollback? true}}]
(l/dbg :hint "process:start" (l/dbg :hint "process:start"
@ -282,10 +284,10 @@
file (binding [*system* system] file (binding [*system* system]
(on-file file'))] (on-file file'))]
(when (and (some? file) (when (and (some? file) (not (identical? file file')))
(not (identical? file file')))
(cfv/validate-file-schema! file) (when validate?
(cfv/validate-file-schema! file))
(let [file (if (contains? (:features file) "fdata/objects-map") (let [file (if (contains? (:features file) "fdata/objects-map")
(feat.fdata/enable-objects-map file) (feat.fdata/enable-objects-map file)
@ -300,6 +302,9 @@
(db/update! conn :file (db/update! conn :file
{:data (blob/encode (:data file)) {:data (blob/encode (:data file))
:deleted-at (:deleted-at file)
:created-at (:created-at file)
:modified-at (:modified-at file)
:features (db/create-array conn "text" (:features file)) :features (db/create-array conn "text" (:features file))
:revn (:revn file)} :revn (:revn file)}
{:id file-id})))))) {:id file-id}))))))
@ -314,7 +319,6 @@
:file-id (str file-id) :file-id (str file-id)
:elapsed elapsed)))))] :elapsed elapsed)))))]
(try (try
(db/tx-run! main/system (db/tx-run! main/system
(fn [{:keys [::db/conn] :as system}] (fn [{:keys [::db/conn] :as system}]