luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-25 19:28:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

review comment fixes

Browse source
This commit is contained in:
Tommi Reiman 2023-08-24 08:38:18 +03:00
parent adef7ad06e
commit 05cbed815f
2 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
modules/reitit-core/src/reitit/coercion.cljc
View file

@ -176,9 +176,9 @@
(some->> (for [[k v] parameters, :when v]
[k (request-coercer coercion k v opts)])
(filter second) (seq) (into {})))
([coercion parameters request opts]
(let [crc (when request (some->> (content-request-coercer coercion request opts) (array-map :request)))
rcs (request-coercers coercion parameters (cond-> opts request (assoc ::skip #{:body})))]
([coercion parameters route-request opts]
(let [crc (when route-request (some->> (content-request-coercer coercion route-request opts) (array-map :request)))
rcs (request-coercers coercion parameters (cond-> opts route-request (assoc ::skip #{:body})))]
(if (and crc rcs) (into crc (vec rcs)) (or crc rcs)))))
(defn response-coercers [coercion responses opts]

3
modules/reitit-spec/src/reitit/coercion/spec.cljc
View file

@ -83,9 +83,6 @@
:string {:default string-transformer}
:response {:default no-op-transformer}}})
(defn get-request-default-body [request]
(or (-> request :content :default :schema) (:body request)))
(defn create [{:keys [transformers coerce-response?] :as opts}]
^{:type ::coercion/coercion}
(reify coercion/Coercion