Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-12 07:41:43 -05:00
Code Issues Activity

🐛 Fix incorrect logging context setup

Browse source
This commit is contained in:
Andrey Antukh 2023-01-12 19:37:28 +01:00
parent bafe3ec087
commit fcbbe8e5c7
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
common/src/app/common/logging.cljc
View file

@ -175,14 +175,15 @@
#?(:clj #?(:clj
(defn get-error-context (defn get-error-context
[error] [error]
(when-let [data (ex-data error)] (merge
(merge {:hint (ex-message error)}
{:hint (ex-message error) (when-let [data (ex-data error)]
:spec-problems (some->> data ::s/problems (take 10) seq vec) (merge
:spec-value (some->> data ::s/value) {:spec-problems (some->> data ::s/problems (take 10) seq vec)
:data (some-> data (dissoc ::s/problems ::s/value ::s/spec))} :spec-value (some->> data ::s/value)
(when-let [explain (ex/explain data)] :data (some-> data (dissoc ::s/problems ::s/value ::s/spec))}
{:spec-explain explain}))))) (when-let [explain (ex/explain data)]
{:spec-explain explain}))))))
(defmacro log (defmacro log
[& props] [& props]