refactor: Implement all Executor protocol method

This commit is contained in:
Mathieu Lirzin 2026-01-01 17:59:24 +01:00
parent e3180e4d6a
commit 8721c7ae37
No known key found for this signature in database
GPG key ID: 0ADEE10094604D37
3 changed files with 14 additions and 2 deletions

View file

@ -7,6 +7,10 @@
([type data] ([type data]
(throw (ex-info (str type) {:type type, :data data})))) (throw (ex-info (str type) {:type type, :data data}))))
(defn unsupported-protocol-method!
[method]
(fail! :unsupported-protocol-method {:method method}))
(defn get-message [e] (defn get-message [e]
#?(:clj (.getMessage ^Exception e) :cljs (ex-message e))) #?(:clj (.getMessage ^Exception e) :cljs (ex-message e)))

View file

@ -2,6 +2,7 @@
(:require [io.pedestal.http :as http] (:require [io.pedestal.http :as http]
[io.pedestal.interceptor :as interceptor] [io.pedestal.interceptor :as interceptor]
[io.pedestal.interceptor.chain :as chain] [io.pedestal.interceptor.chain :as chain]
[reitit.exception :as ex]
[reitit.http] [reitit.http]
[reitit.interceptor]) [reitit.interceptor])
(:import (java.lang.reflect Method))) (:import (java.lang.reflect Method)))
@ -51,6 +52,10 @@
(map (fn [{::interceptor/keys [handler] :as interceptor}] (map (fn [{::interceptor/keys [handler] :as interceptor}]
(or handler interceptor))) (or handler interceptor)))
(keep ->interceptor))) (keep ->interceptor)))
(execute [_ _ _]
(ex/unsupported-protocol-method! 'reitit.interceptor/execute))
(execute [_ _ _ _ _]
(ex/unsupported-protocol-method! 'reitit.interceptor/execute))
(enqueue [_ context interceptors] (enqueue [_ context interceptors]
(chain/enqueue context interceptors)))) (chain/enqueue context interceptors))))

View file

@ -1,5 +1,6 @@
(ns reitit.interceptor.sieppari (ns reitit.interceptor.sieppari
(:require [reitit.interceptor :as interceptor] (:require [reitit.exception :as ex]
[reitit.interceptor :as interceptor]
[sieppari.core :as sieppari] [sieppari.core :as sieppari]
[sieppari.queue :as queue])) [sieppari.queue :as queue]))
@ -15,4 +16,6 @@
(execute [_ interceptors request] (execute [_ interceptors request]
(sieppari/execute interceptors request)) (sieppari/execute interceptors request))
(execute [_ interceptors request respond raise] (execute [_ interceptors request respond raise]
(sieppari/execute interceptors request respond raise)))) (sieppari/execute interceptors request respond raise))
(enqueue [_ _ _]
(ex/unsupported-protocol-method! 'reitit.interceptor/enqueue))))