Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 09:08:31 -05:00
Code Issues Activity

✨ Improve database error reporter

Browse source
This commit is contained in:
Andrey Antukh 2023-08-02 13:37:44 +02:00
parent eae5dfc828
commit 00f7c94377
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
backend/src/app/loggers/database.clj
View file

@ -50,9 +50,9 @@
(assoc :logger-name logger) (assoc :logger-name logger)
(assoc :logger-level level) (assoc :logger-level level)
(dissoc :params) (dissoc :params)
(pp/pprint-str :width 200)) (pp/pprint-str :width 200 :length 50 :level 10))
:props (pp/pprint-str props :width 200) :props (pp/pprint-str props :width 200 :length 50)
:hint (or (ex-message cause) @message) :hint (or (ex-message cause) @message)
:trace (ex/format-throwable cause :data? false :explain? false :header? false :summary? false)} :trace (ex/format-throwable cause :data? false :explain? false :header? false :summary? false)}
@ -62,10 +62,7 @@
(when-let [data (some-> data (dissoc ::s/problems ::s/value ::s/spec ::sm/explain :hint))] (when-let [data (some-> data (dissoc ::s/problems ::s/value ::s/spec ::sm/explain :hint))]
{:data (pp/pprint-str data :width 200)}) {:data (pp/pprint-str data :width 200)})
(when-let [value (-> data ::sm/explain :value)] (when-let [explain (ex/explain data {:level 10 :length 50})]
{:value (pp/pprint-str value :width 200)})
(when-let [explain (ex/explain data)]
{:explain explain})))) {:explain explain}))))