3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-14 23:17:31 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add minor enhacement for error reporting

Browse source
This commit is contained in:
Andrey Antukh 2025-04-01 20:24:07 +02:00
parent 3ec797f56e
commit 4d4a04e9aa
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
backend/src/app/http/errors.clj
View file

@ -62,7 +62,8 @@
::yres/body data} ::yres/body data}
(binding [l/*context* (request->context request)] (binding [l/*context* (request->context request)]
(l/err :hint "restriction error" :data data) (l/err :hint "restriction error"
:cause err)
{::yres/status 400 {::yres/status 400
::yres/body data})))) ::yres/body data}))))
@ -102,7 +103,7 @@
(= code :invalid-image) (= code :invalid-image)
(binding [l/*context* (request->context request)] (binding [l/*context* (request->context request)]
(let [cause (or parent-cause err)] (let [cause (or parent-cause err)]
(l/warn :hint "unexpected error on processing image" :cause cause) (l/warn :hint "image process error" :cause cause)
{::yres/status 400 ::yres/body data})) {::yres/status 400 ::yres/body data}))
:else :else
@ -177,7 +178,7 @@
(let [state (.getSQLState ^java.sql.SQLException error) (let [state (.getSQLState ^java.sql.SQLException error)
cause (or parent-cause error)] cause (or parent-cause error)]
(binding [l/*context* (request->context request)] (binding [l/*context* (request->context request)]
(l/error :hint "PSQL error" (l/error :hint "postgresql error"
:cause cause) :cause cause)
(cond (cond
(= state "57014") (= state "57014")

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

@ -53,11 +53,16 @@
(assoc :logger/name logger) (assoc :logger/name logger)
(assoc :logger/level level) (assoc :logger/level level)
(dissoc :request/params :value :params :data))] (dissoc :request/params :value :params :data))]
(merge (merge
{:context (-> (into (sorted-map) ctx) {:context (-> (into (sorted-map) ctx)
(pp/pprint-str :length 50)) (pp/pprint-str :length 50))
:props (pp/pprint-str props :length 50) :props (pp/pprint-str props :length 50)
:hint (or (ex-message cause) @message) :hint (or (when-let [message (ex-message cause)]
(if-let [props-hint (:hint props)]
(str props-hint ": " message)
message))
@message)
:trace (or (::trace record) :trace (or (::trace record)
(some-> cause (ex/format-throwable :data? false :explain? false :header? false :summary? false)))} (some-> cause (ex/format-throwable :data? false :explain? false :header? false :summary? false)))}