github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-04-25 19:28:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

✨ Adjust error reporting thresholds

Browse Source
This commit is contained in:
Andrey Antukh 2023-11-21 13:35:19 +01:00
parent 3dc629d2ad
commit d1fba8982e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backend/src/app/loggers/database.clj
View File

@ -71,7 +71,7 @@
(when-let [data (some-> data (dissoc ::s/problems ::s/value ::s/spec ::sm/explain :hint))]
{:data (pp/pprint-str data :width 200)})
(when-let [explain (ex/explain data {:level 10 :length 50})]
(when-let [explain (ex/explain data {:level 8 :length 20})]
{:explain explain})))))
(defn error-record?

4
common/src/app/common/exceptions.cljc
View File

@ -93,7 +93,7 @@
explain? true
chain? true
data-length 10
data-level 5}}]
data-level 4}}]
(letfn [(print-trace-element [^StackTraceElement e]
(let [class (.getClassName e)
@ -127,7 +127,7 @@
(-> (ex-message cause)
(str/lines)
(first)
(str/prune 100)))
(str/prune 130)))
(when-let [^StackTraceElement e (first (.getStackTrace ^Throwable cause))]
(printf " (%s:%d)" (or (.getFileName e) "") (.getLineNumber e)))