pass-through function interceptors

modules/reitit-core/src/reitit/interceptor.cljc

@@ -60,6 +60,7 @@
   (into-interceptor [this data opts]
     (into-interceptor
       {:name ::handler
+       ::handler this
        :enter (fn [ctx]
                 (assoc ctx :response (this (:request ctx))))}
       data opts))

modules/reitit-sieppari/src/reitit/interceptor/sieppari.clj

@@ -7,7 +7,11 @@
   (reify
     interceptor/Executor
     (queue [_ interceptors]
-      (queue/into-queue interceptors))
+      (queue/into-queue
+        (map
+          (fn [{:keys [::interceptor/handler] :as interceptor}]
+            (or handler interceptor))
+          interceptors)))
     (execute [_ interceptors request]
       (sieppari/execute interceptors request))
     (execute [_ interceptors request respond raise]