Add the abilty to enable verbose output using query param (api).

This commit is contained in:
Andrey Antukh 2021-12-02 17:46:06 +01:00
parent 86bbfde19e
commit 76dafea8a6
2 changed files with 6 additions and 5 deletions

View file

@ -144,10 +144,10 @@
["/api" {:middleware [[middleware/cors] ["/api" {:middleware [[middleware/cors]
[middleware/etag] [middleware/etag]
[middleware/format-response-body]
[middleware/params] [middleware/params]
[middleware/multipart-params]
[middleware/keyword-params] [middleware/keyword-params]
[middleware/format-response-body]
[middleware/multipart-params]
[middleware/parse-request-body] [middleware/parse-request-body]
[middleware/errors errors/handle] [middleware/errors errors/handle]
[middleware/cookies]]} [middleware/cookies]]}

View file

@ -75,9 +75,10 @@
:compile (constantly wrap-parse-request-body)}) :compile (constantly wrap-parse-request-body)})
(defn- impl-format-response-body (defn- impl-format-response-body
[response _request] [response request]
(let [body (:body response) (let [body (:body response)
opts {:type :json}] params (:query-params request)
opts {:type (if (contains? params "transit_verbose") :json-verbose :json)}]
(cond (cond
(coll? body) (coll? body)
(-> response (-> response