luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-18 08:51:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

bugfix

Browse source
This commit is contained in:
Matthew Molloy 2024-08-26 09:00:30 +09:00
parent 5589328a3c
commit c94ecf5ca7
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
modules/reitit-middleware/src/reitit/ring/middleware/exception.clj
View file

@ -19,6 +19,9 @@
(recur (.getSuperclass sk) (conj ks sk)) (recur (.getSuperclass sk) (conj ks sk))
ks))) ks)))
(defn- descendants-safe [type]
(when-not (class? type) (descendants type)))
(defn- call-error-handler [handlers error request] (defn- call-error-handler [handlers error request]
(let [type (:type (ex-data error)) (let [type (:type (ex-data error))
ex-class (class error) ex-class (class error)
@ -26,7 +29,7 @@
(get handlers ex-class) (get handlers ex-class)
(some (some
(partial get handlers) (partial get handlers)
(descendants type)) (descendants-safe type))
(some (some
(partial get handlers) (partial get handlers)
(super-classes ex-class)) (super-classes ex-class))