Improve file-gc task

make it more aware of fragments referenced on changes snapshots
This commit is contained in:
Andrey Antukh 2023-04-25 17:14:38 +02:00
parent 82dad3217b
commit 5e89aa2726
7 changed files with 260 additions and 130 deletions

View file

@ -148,13 +148,14 @@
(let [file (get-file conn id)
features (->> (concat (:features file)
(:features params))
(into files/default-features)
(into (files/get-default-features))
(files/check-features-compatibility!))]
(files/check-edition-permissions! conn profile-id (:id file))
(binding [ffeat/*current* features
ffeat/*previous* (:features file)]
(let [update-fn (cond-> update-file*
(contains? features "storage/pointer-map")
(wrap-with-pointer-map-context)