Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-09 16:30:37 -05:00
Code Issues Activity

💄 Add cosmetic improvements on binfile rpc ns logging

Browse source
This commit is contained in:
Andrey Antukh 2023-11-20 10:39:53 +01:00 committed by Andrés Moya
parent a89dcb9e86
commit 344da75088
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
backend/src/app/rpc/commands/binfile.clj
View file

@ -840,7 +840,7 @@
:code :inconsistent-penpot-file
:hint "the penpot file seems corrupt, found unexpected uuid (storage-object-id)"))
(l/dbg :hint "readed storage object" :id id ::l/sync? true)
(l/dbg :hint "readed storage object" :id (str id) ::l/sync? true)
(let [[size resource] (read-stream! input)
hash (sto/calculate-hash resource)
@ -854,18 +854,21 @@
sobject (sto/put-object! storage params)]
(l/dbg :hint "persisted storage object" :id id :new-id (:id sobject) ::l/sync? true)
(l/dbg :hint "persisted storage object"
:id (str id)
:new-id (str (:id sobject))
::l/sync? true)
(vswap! *state* update :index assoc id (:id sobject)))))
(doseq [item (:media @*state*)]
(l/dbg :hint "inserting file media object"
:id (:id item)
:file-id (:file-id item)
:id (str (:id item))
:file-id (str (:file-id item))
::l/sync? true)
(let [file-id (lookup-index (:file-id item))]
(if (= file-id (:file-id item))
(l/warn :hint "ignoring file media object" :file-id (:file-id item) ::l/sync? true)
(l/warn :hint "ignoring file media object" :file-id (str (:file-id item)) ::l/sync? true)
(db/insert! conn :file-media-object
(-> item
(assoc :file-id file-id)