3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-17 19:06:44 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Fix problem with garbage collection

Browse source
This commit is contained in:
alonso.torres 2023-10-31 12:21:02 +01:00 • committed by Alonso Torres
parent c28c55bf0b
commit dd8480cd87
3 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -13,6 +13,7 @@
[app.common.data :as d]
[app.common.files.migrations :as pmg]
[app.common.logging :as l]
[app.common.thumbnails :as thc]
[app.common.types.components-list :as ctkl]
[app.common.types.file :as ctf]
[app.common.types.shape-tree :as ctt]
@ -152,15 +153,19 @@
(defn- clean-file-object-thumbnails!
[{:keys [::db/conn ::sto/storage]} file-id data]
(let [stored (->> (db/query conn :file-object-thumbnail
(let [stored (->> (db/query conn :file_object_thumbnail
{:file-id file-id}
{:columns [:object-id]})
(into #{} (map :object-id)))
using (into #{}
(mapcat (fn [{:keys [id objects]}]
(->> (ctt/get-frames objects)
(map #(str id (:id %))))))
(mapcat
(fn [{:keys [id objects]}]
(->> (ctt/get-frames objects)
(mapcat
#(vector
(thc/fmt-object-id file-id id (:id %) "frame")
(thc/fmt-object-id file-id id (:id %) "component"))))))
(vals (:pages-index data)))
unused (set/difference stored using)]