From 69c8a89dd2ab356427c0b50f3ed89d139794848d Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Thu, 16 Mar 2023 19:40:07 +0100 Subject: [PATCH] :tada: Add the ability to specify the output format from query string --- backend/src/app/http/middleware.clj | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/backend/src/app/http/middleware.clj b/backend/src/app/http/middleware.clj index 7e5cdc7aa1..64f2b5d548 100644 --- a/backend/src/app/http/middleware.clj +++ b/backend/src/app/http/middleware.clj @@ -158,8 +158,13 @@ (assoc ::yrs/body (transit-streamable-body body opts)))) response))) + (format-from-params [{:keys [query-params] :as request}] + (and (= "json" (get query-params :_fmt)) + "application/json")) + (format-response [response request] - (let [accept (yrq/get-header request "accept")] + (let [accept (or (format-from-params request) + (yrq/get-header request "accept"))] (cond (or (= accept "application/transit+json") (str/includes? accept "application/transit+json"))