schema-validation.clj

(ns transaction-router.routing.interceptors.schema-validation
  (:require
    [io.pedestal.interceptor :refer [interceptor]]
    [route-swagger.doc :as doc]
    [schema.core :as skm]
    [humanize.schema :as human]))

(defn- explain [schema data]
  (human/explain (skm/check schema data)))

(def validate-schema
  (interceptor
    {:name  ::validate-schema
     :enter (fn [ctx]
              (let [schema (-> ctx :route doc/annotation :parameters :body-params)
                    data (-> ctx :request :body-params)
                    explanation (explain schema data)]
                (if (nil? explanation)
                  ctx
                  (throw (ex-info "Formato inválido. Verifique as mensagens de erro." {:errors explanation})))))}))