🐛 Make http cache aware of missing file data migrations

This commit is contained in:
Andrey Antukh
2025-04-23 18:14:10 +02:00
parent f65518f865
commit 80308ceafa
2 changed files with 6 additions and 4 deletions

View File

@@ -238,7 +238,6 @@
(db/update! conn :file (db/update! conn :file
{:data (blob/encode (:data file)) {:data (blob/encode (:data file))
:version (:version file) :version (:version file)
:modified-at (dt/now)
:features (db/create-array conn "text" (:features file))} :features (db/create-array conn "text" (:features file))}
{:id id}) {:id id})
@@ -293,7 +292,7 @@
(defn get-file-etag (defn get-file-etag
[{:keys [::rpc/profile-id]} {:keys [modified-at revn vern permissions]}] [{:keys [::rpc/profile-id]} {:keys [modified-at revn vern permissions]}]
(str profile-id "/" revn "/" vern "/" (str profile-id "/" revn "/" vern "/" (hash fmg/available-migrations) "/"
(dt/format-instant modified-at :iso) (dt/format-instant modified-at :iso)
"/" "/"
(uri/map->query-string permissions))) (uri/map->query-string permissions)))

View File

@@ -36,7 +36,7 @@
#?(:cljs (l/set-level! :info)) #?(:cljs (l/set-level! :info))
(declare ^:private available-migrations) (declare available-migrations)
(def version cfd/version) (def version cfd/version)
@@ -48,7 +48,10 @@
[file] [file]
(or (nil? (:version file)) (or (nil? (:version file))
(not= cfd/version (:version file)) (not= cfd/version (:version file))
(not= available-migrations (:migrations file)))) (boolean
(->> (:migrations file #{})
(set/difference available-migrations)
(not-empty)))))
(def xf:map-name (def xf:map-name
(map :name)) (map :name))