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

Unroll merge and hash-map coercion

Browse source
This commit is contained in:
Ben Sless 2022-12-06 21:35:26 +02:00
parent 8398c98595
commit 24f38e0dfa
1 changed files with 19 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -47,13 +47,15 @@
(if serialize-failed-result
(str "Request coercion failed: " (pr-str result))
"Request coercion failed")
(merge
(into {} result)
{:type ::request-coercion
:coercion coercion
:value value
:in [:request in]
:request request}))))
(-> {}
transient
(as-> $ (reduce conj! $ result))
(assoc! :type ::request-coercion)
(assoc! :coercion coercion)
(assoc! :value value)
(assoc! :in [:request in])
(assoc! :request request)
persistent!))))
(defn ^:no-doc response-coercion-failed! [result coercion value request response serialize-failed-result]
(throw
@ -61,14 +63,16 @@
(if serialize-failed-result
(str "Response coercion failed: " (pr-str result))
"Response coercion failed")
(merge
(into {} result)
{:type ::response-coercion
:coercion coercion
:value value
:in [:response :body]
:request request
:response response}))))
(-> {}
transient
(as-> $ (reduce conj! $ result))
(assoc! :type ::response-coercion)
(assoc! :coercion coercion)
(assoc! :value value)
(assoc! :in [:response :body])
(assoc! :request request)
(assoc! :response response)
persistent!))))
(defn extract-request-format-default [request]
(-> request :muuntaja/request :format))