Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-08 16:18:11 -05:00
Code Issues Activity

✨ Add the ability to create a file snapshot on repair

Browse source
This commit is contained in:
Andrey Antukh 2024-02-09 11:10:04 +01:00 • committed by Andrés Moya
parent c07dbc9843
commit f9af2a16b9
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
backend/src/app/srepl/main.clj
View file

@ -405,11 +405,11 @@
(d/index-by :id))]
(cfv/validate-file file libs)))))
(defn repair-file*
(defn- repair-file*
"Internal helper for validate and repair the file. The operation is
applied multiple times untile file is fixed or max iteration counter
is reached (default 10)"
[system id & {:keys [max-iterations] :or {max-iterations 10}}]
[system id & {:keys [max-iterations label] :or {max-iterations 10}}]
(let [id (parse-uuid id)
validate-and-repair
@ -440,6 +440,9 @@
(db/tx-run! system
(fn [{:keys [::db/conn] :as system}]
(when (string? label)
(fsnap/take-file-snapshot! system {:file-id id :label label}))
(let [file (h/get-file system id)
libs (->> (files/get-file-libraries conn id)
(into [file] (map (fn [{:keys [id]}]