From 76dafea8a6d11811a59c9cbc321943e54b83d4af Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Thu, 2 Dec 2021 17:46:06 +0100
Subject: [PATCH] :sparkles: Add the abilty to enable verbose output using
 query param (api).

---
 backend/src/app/http.clj            | 4 ++--
 backend/src/app/http/middleware.clj | 7 ++++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/backend/src/app/http.clj b/backend/src/app/http.clj
index 0dc98852b..f7485c32e 100644
--- a/backend/src/app/http.clj
+++ b/backend/src/app/http.clj
@@ -144,10 +144,10 @@
 
     ["/api" {:middleware [[middleware/cors]
                           [middleware/etag]
-                          [middleware/format-response-body]
                           [middleware/params]
-                          [middleware/multipart-params]
                           [middleware/keyword-params]
+                          [middleware/format-response-body]
+                          [middleware/multipart-params]
                           [middleware/parse-request-body]
                           [middleware/errors errors/handle]
                           [middleware/cookies]]}
diff --git a/backend/src/app/http/middleware.clj b/backend/src/app/http/middleware.clj
index 8c8bf1151..633621a41 100644
--- a/backend/src/app/http/middleware.clj
+++ b/backend/src/app/http/middleware.clj
@@ -75,9 +75,10 @@
    :compile (constantly wrap-parse-request-body)})
 
 (defn- impl-format-response-body
-  [response _request]
-  (let [body (:body response)
-        opts {:type :json}]
+  [response request]
+  (let [body   (:body response)
+        params (:query-params request)
+        opts   {:type (if (contains? params "transit_verbose") :json-verbose :json)}]
     (cond
       (coll? body)
       (-> response