如何使用Reitit在Clojure中设置中间件以启用主体参数的强制？

{:deps {reitit {:mvn/version "0.5.9"}}}

(require '[reitit.ring :as ring])
(require '[reitit.core :as r])

(defn force-body-params [handler]
  (fn [request]
    (let [request-with-params (ring.middleware.params/wrap-params request)]
      (if (empty? (:params request-with-params))
        {:status 400
         :body "Missing request body parameters"}
        (handler request-with-params)))))

(def app
  (ring/ring-handler
    (r/router
      [["/api"
        (r/defroutes
          (r/middleware force-body-params
            (r/POST "/example" []
              (fn [request]
                {:status 200
                 :body "Request body parameters received"}))))]]))