Add proper error handlings on http middleware

This commit is contained in:
Andrey Antukh 2022-03-25 17:08:19 +01:00 committed by Alonso Torres
parent 36027583cd
commit 9ce0497f00

View file

@ -49,14 +49,14 @@
request)))] request)))]
(fn [request respond raise] (fn [request respond raise]
(try (when-let [request (try
(let [request (process-request request)] (process-request request)
(handler request respond raise)) (catch Exception cause
(catch Exception cause (raise (ex/error :type :validation
(raise (ex/error :type :validation :code :malformed-params
:code :malformed-params :hint (ex-message cause)
:hint (ex-message cause) :cause cause))))]
:cause cause))))))) (handler request respond raise)))))
(def parse-request (def parse-request
{:name ::parse-request {:name ::parse-request