luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-01-27 16:40:34 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

add specs

Browse source
This commit is contained in:
Tommi Reiman 2018-07-21 14:59:20 +03:00
parent b54ee1a86b
commit ed385afe5a
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
modules/reitit-middleware/src/reitit/ring/middleware/alpha/muuntaja.cljc
View file

@ -1,12 +1,16 @@
(ns reitit.ring.middleware.alpha.muuntaja (ns reitit.ring.middleware.alpha.muuntaja
(:require [muuntaja.core :as m] (: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 (defn create-format-middleware
([] ([]
(create-format-middleware m/default-options)) (create-format-middleware m/default-options))
([options] ([options]
{:name ::formats {:name ::formats
:spec (s/keys :opt-un [::muuntaja])
:compile (fn [{:keys [muuntaja]} _] :compile (fn [{:keys [muuntaja]} _]
(let [options (or muuntaja options)] (let [options (or muuntaja options)]
(if options (if options