fix: create-exception-middleware for hierarchical keywords

Previously, the code was searching among the descendants, not the
ancestors, of the error type for an error handler. The test also got
this wrong, perhaps due to a mistake in the parameter order of derive.

modules/reitit-middleware/src/reitit/ring/middleware/exception.clj

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

test/clj/reitit/ring/middleware/exception_test.clj

@@ -11,7 +11,7 @@
   (:import (clojure.lang ExceptionInfo)
            (java.sql SQLException SQLWarning)))
 
-(derive ::kikka ::kukka)
+(derive ::kukka ::kikka)
 
 (deftest exception-test
   (letfn [(create