0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-04-13 07:21:40 -05:00

Report restriction errors to logger

This commit is contained in:
Andrey Antukh 2025-02-11 13:51:50 +01:00
parent 36518e0e6e
commit 895450c9d5
2 changed files with 9 additions and 7 deletions

View file

@ -55,13 +55,16 @@
::yres/body (ex-data err)})
(defmethod handle-error :restriction
[err _ _]
[err request _]
(let [{:keys [code] :as data} (ex-data err)]
(if (= code :method-not-allowed)
{::yres/status 405
::yres/body data}
{::yres/status 400
::yres/body data})))
(binding [l/*context* (request->context request)]
(l/err :hint "restriction error" :data data)
{::yres/status 400
::yres/body data}))))
(defmethod handle-error :rate-limit
[err _ _]

View file

@ -59,7 +59,7 @@
:props (pp/pprint-str props :length 50)
:hint (or (ex-message cause) @message)
:trace (or (::trace record)
(ex/format-throwable cause :data? false :explain? false :header? false :summary? false))}
(some-> cause (ex/format-throwable :data? false :explain? false :header? false :summary? false)))}
(when-let [params (or (:request/params context) (:params context))]
{:params (pp/pprint-str params :length 30 :level 13)})
@ -74,9 +74,8 @@
{:explain explain})))))
(defn error-record?
[{:keys [::l/level ::l/cause]}]
(and (= :error level)
(ex/exception? cause)))
[{:keys [::l/level]}]
(= :error level))
(defn- handle-event
[{:keys [::db/pool]} {:keys [::l/id] :as record}]