Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-06 12:01:19 -05:00
Code Issues Activity

🐛 Launch offload only if file-gc has processed the file

Browse source
This commit is contained in:
Andrey Antukh 2024-08-12 11:03:38 +02:00
parent 280252d40e
commit ab461ba560
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
backend/src/app/tasks/file_gc.clj
View file

@ -301,16 +301,15 @@
(try
(db/tx-run! cfg (fn [{:keys [::db/conn] :as cfg}]
(let [cfg (update cfg ::sto/storage sto/configure conn)
res (process-file! cfg)]
(when (contains? cf/flags :tiered-file-data-storage)
(let [cfg (update cfg ::sto/storage sto/configure conn)
processed? (process-file! cfg)]
(when (and processed? (contains? cf/flags :tiered-file-data-storage))
(wrk/submit! (-> cfg
(assoc ::wrk/task :offload-file-data)
(assoc ::wrk/params props)
(assoc ::wrk/priority 10)
(assoc ::wrk/delay 1000))))
res)))
processed?)))
(catch Throwable cause
(l/err :hint "error on cleaning file"