Add better error reporting on load-pointer function

This commit is contained in:
Andrey Antukh 2023-11-15 13:28:06 +01:00
parent 1457b7cf38
commit f1782f746d

View file

@ -170,11 +170,18 @@
(defn load-pointer (defn load-pointer
[conn file-id id] [conn file-id id]
(let [row (db/get conn :file-data-fragment (let [{:keys [content]} (db/get conn :file-data-fragment
{:id id :file-id file-id} {:id id :file-id file-id}
{:columns [:content] {:columns [:content]
::db/check-deleted? false})] ::db/check-deleted? false})]
(blob/decode (:content row)))) (when-not content
(ex/raise :type :internal
:code :fragment-not-found
:hint "fragment not found"
:file-id file-id
:fragment-id id))
(blob/decode content)))
(defn- load-all-pointers! (defn- load-all-pointers!
[{:keys [data] :as file}] [{:keys [data] :as file}]