From ed385afe5a7a20ea6f2ef2a6ada1f2832a92cb36 Mon Sep 17 00:00:00 2001 From: Tommi Reiman Date: Sat, 21 Jul 2018 14:59:20 +0300 Subject: [PATCH] add specs --- .../src/reitit/ring/middleware/alpha/muuntaja.cljc | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/modules/reitit-middleware/src/reitit/ring/middleware/alpha/muuntaja.cljc b/modules/reitit-middleware/src/reitit/ring/middleware/alpha/muuntaja.cljc index 3cafdcd4..09736980 100644 --- a/modules/reitit-middleware/src/reitit/ring/middleware/alpha/muuntaja.cljc +++ b/modules/reitit-middleware/src/reitit/ring/middleware/alpha/muuntaja.cljc @@ -1,12 +1,16 @@ (ns reitit.ring.middleware.alpha.muuntaja (:require [muuntaja.core :as m] - [muuntaja.middleware])) + [muuntaja.middleware] + [clojure.spec.alpha :as s])) + +(s/def ::muuntaja (partial instance? m/Muuntaja)) (defn create-format-middleware ([] (create-format-middleware m/default-options)) ([options] {:name ::formats + :spec (s/keys :opt-un [::muuntaja]) :compile (fn [{:keys [muuntaja]} _] (let [options (or muuntaja options)] (if options