From a096b0777f3bc2334747c17aa3e9a456b59b5aff Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Thu, 30 Dec 2021 12:03:34 +0100
Subject: [PATCH] :paperclip: Minor changes on debug ns.

---
 backend/src/app/http/debug.clj | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/backend/src/app/http/debug.clj b/backend/src/app/http/debug.clj
index a7415b0b5..c987578a1 100644
--- a/backend/src/app/http/debug.clj
+++ b/backend/src/app/http/debug.clj
@@ -48,13 +48,13 @@
       (str/includes? revn ":")
       (let [[start end] (->> (str/split revn #":")
                              (map d/read-string))
-            _ (prn "fofof" start end)
             items (db/exec! pool [sql:retrieve-range-of-changes
                                     id start end])
             items (->> items
                        (map :changes)
                        (map blob/decode)
-                       (mapcat identity))]
+                       (mapcat identity)
+                       (vec))]
         {:status 200
          :headers {"content-type" "application/transit+json"}
          :body (-> items
@@ -63,15 +63,12 @@
 
       (d/num-string? revn)
       (let [item (db/exec-one! pool [sql:retrieve-single-change id (d/read-string revn)])
-            _     (prn "KAKAKAKA")
-            _    (clojure.pprint/pprint item)
-
             item (-> item
                      :changes
                      blob/decode)]
         {:status 200
          :headers {"content-type" "application/transit+json"}
-         :body (-> item
+         :body (-> (into [] item)
                    (t/encode-str {:type :json-verbose})
                    (cond-> wrap? (json/write)))})