luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-01-29 17:20:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #361 from olimsaidov/patch-1

Browse source 
Pass malli options to compile fn
This commit is contained in:
Tommi Reiman 2020-02-05 13:21:13 +02:00 committed by GitHub
commit c8e0411765
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
modules/reitit-malli/src/reitit/coercion/malli.cljc
View file

@ -135,7 +135,7 @@
(if parameters (if parameters
{:parameters {:parameters
(->> (for [[in schema] parameters (->> (for [[in schema] parameters
parameter (extract-parameter in (compile schema) options)] parameter (extract-parameter in (compile schema options) options)]
parameter) parameter)
(into []))}) (into []))})
(if responses (if responses
@ -148,14 +148,14 @@
(update $ :description (fnil identity "")) (update $ :description (fnil identity ""))
(if (:schema $) (if (:schema $)
(-> $ (-> $
(update :schema compile) (update :schema compile options)
(update :schema swagger/transform {:type :schema})) (update :schema swagger/transform {:type :schema}))
$))]))})) $))]))}))
(throw (throw
(ex-info (ex-info
(str "Can't produce Schema apidocs for " specification) (str "Can't produce Schema apidocs for " specification)
{:type specification, :coercion :schema})))) {:type specification, :coercion :schema}))))
(-compile-model [_ model _] (compile model)) (-compile-model [_ model _] (compile model options))
(-open-model [_ schema] schema) (-open-model [_ schema] schema)
(-encode-error [_ error] (-encode-error [_ error]
(cond-> error (cond-> error
@ -165,9 +165,9 @@
(update :errors (partial map #(update % :schema edn/write-string opts)))) (update :errors (partial map #(update % :schema edn/write-string opts))))
(seq error-keys) (select-keys error-keys))) (seq error-keys) (select-keys error-keys)))
(-request-coercer [_ type schema] (-request-coercer [_ type schema]
(-coercer (compile schema) type transformers :decode nil options)) (-coercer (compile schema options) type transformers :decode nil options))
(-response-coercer [_ schema] (-response-coercer [_ schema]
(let [schema (compile schema) (let [schema (compile schema options)
encoder (-coercer schema :body transformers :encode nil options)] encoder (-coercer schema :body transformers :encode nil options)]
(-coercer schema :response transformers :encode encoder options))))))) (-coercer schema :response transformers :encode encoder options)))))))