function | since v0.0-2629 | Edit |
(read-response in)
(defn ^String read-response [^BufferedReader in]
(let [sb (StringBuilder.)]
(loop [sb sb c (.read in)]
(case c
-1 (throw (IOException. "Stream closed"))
0 (str sb)
(do
(.append sb (char c))
(recur sb (.read in)))))))