Clojure：未针对课堂找到协议方法的实现

Question

我有戒指服务器。我正在使用Buddy进行身份验证 /授权。我通过实现-parse，-authenticate和-handle-handle-inauthorized 代码>和iauthorization。在这里是：

(ns myproject.auth
  (:require [buddy.auth.protocols :as proto]))

...

(defn my-token-backend
  ([] (my-token-backend nil))
  ([{:keys [unauthorized-handler]}]
   (reify
     proto/IAuthentication
     (-parse [_ request]
       (token-or-nil))
     (-authenticate [_ request token]
       (get-user-from-token token))
     proto/IAuthorization
     (-handle-unauthorized [_ request metadata]
       (if unauthorized-handler
         (unauthorized-handler request metadata)
         (handle-unauthorized-default request))))))

然后，我在wrap-authentication和wrap-oterorization middleware中使用我的后端：

(defn middleware [handler]
  (-> handler
      (wrap-authentication my-token-backend)
      (wrap-authorization my-token-backend)

...并用类似的中间件来调用我的应用程序： （DEF APP（中间件主路由））。

当我进入浏览器中的索引页面时，我会收到以下错误： java.lang.illegalgumentException：未实现方法：： - 协议的parse：＃'buddy.auth.protocols/iAuthentication，为类：myproject.auth.auth.auth $ my_token_backend_backend。

当我调用（反映my-token-backend）中时，我注意到方法的名称-parse，-authenticate和-handle-inaushorized已转换为下划线。这是为什么我会遇到错误，还是来自其他地方的错误？

---

编辑：经过肖恩的评论，我将中间件更改为如下：

(defn middleware [handler]
  (-> handler
      (wrap-authentication (my-token-backend))
      (wrap-authorization (my-token-backend))))

Answer 1

类myproject.auth $ my_token_backend是函数my-token-backend，您收到的错误说呼叫> -Parse is期望实现协议的对象 - 呼叫的结果 您的函数。

所以我认为你想要：

(defn middleware [handler]
  (-> handler
      (wrap-authentication (my-token-backend))
      (wrap-authorization (my-token-backend)))