Buffer debug output to avoid mangling output (dakrone#544)

Fixes dakrone#536

Author: rymndhng

src/clj_http/core.clj

@@ -485,27 +485,29 @@
 (defn- print-debug!
   "Print out debugging information to *out* for a given request."
   [{:keys [debug-body body] :as req} http-req]
-  (println "Request:" (type body))
-  (clojure.pprint/pprint
-   (assoc req
-          :body (if (opt req :debug-body)
-                  (cond
-                    (isa? (type body) String)
-                    body
-
-                    (isa? (type body) HttpEntity)
-                    (let [baos (ByteArrayOutputStream.)]
-                      (.writeTo ^HttpEntity body baos)
-                      (.toString baos "UTF-8"))
-
-                    :else nil)
-                  (if (isa? (type body) String)
-                    (format "... %s bytes ..."
-                            (count body))
-                    (and body (bean body))))
-          :body-type (type body)))
-  (println "HttpRequest:")
-  (clojure.pprint/pprint (bean http-req)))
+  (println
+   (with-out-str
+     (println "Request:" (type body))
+     (clojure.pprint/pprint
+      (assoc req
+             :body (if (opt req :debug-body)
+                     (cond
+                       (isa? (type body) String)
+                       body
+
+                       (isa? (type body) HttpEntity)
+                       (let [baos (ByteArrayOutputStream.)]
+                         (.writeTo ^HttpEntity body baos)
+                         (.toString baos "UTF-8"))
+
+                       :else nil)
+                     (if (isa? (type body) String)
+                       (format "... %s bytes ..."
+                               (count body))
+                       (and body (bean body))))
+             :body-type (type body)))
+     (println "HttpRequest:")
+     (clojure.pprint/pprint (bean http-req)))))
 
 (defn- build-response-map
   [^HttpResponse response req ^HttpUriRequest http-req http-url