From 927d1c1bbba7e8c797005ea98e143f4f6f375567 Mon Sep 17 00:00:00 2001 From: Olim Saidov Date: Wed, 5 Feb 2020 14:33:36 +0500 Subject: [PATCH] Pass malli options to compile fn --- modules/reitit-malli/src/reitit/coercion/malli.cljc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/modules/reitit-malli/src/reitit/coercion/malli.cljc b/modules/reitit-malli/src/reitit/coercion/malli.cljc index 411843da..2f5742fd 100644 --- a/modules/reitit-malli/src/reitit/coercion/malli.cljc +++ b/modules/reitit-malli/src/reitit/coercion/malli.cljc @@ -135,7 +135,7 @@ (if parameters {:parameters (->> (for [[in schema] parameters - parameter (extract-parameter in (compile schema))] + parameter (extract-parameter in (compile schema options))] parameter) (into []))}) (if responses @@ -148,14 +148,14 @@ (update $ :description (fnil identity "")) (if (:schema $) (-> $ - (update :schema compile) + (update :schema compile options) (update :schema swagger/transform {:type :schema})) $))]))})) (throw (ex-info (str "Can't produce Schema apidocs for " specification) {:type specification, :coercion :schema})))) - (-compile-model [_ model _] (compile model)) + (-compile-model [_ model _] (compile model options)) (-open-model [_ schema] schema) (-encode-error [_ error] (cond-> error @@ -165,9 +165,9 @@ (update :errors (partial map #(update % :schema edn/write-string opts)))) (seq error-keys) (select-keys error-keys))) (-request-coercer [_ type schema] - (-coercer (compile schema) type transformers :decode nil options)) + (-coercer (compile schema options) type transformers :decode nil options)) (-response-coercer [_ schema] - (let [schema (compile schema) + (let [schema (compile schema options) encoder (-coercer schema :body transformers :encode nil options)] (-coercer schema :response transformers :encode encoder options)))))))