Prevent the parsing of empty streams

This bug was raised against ztellman/aleph here: clj-commons/aleph#331
peterwang · Nov 2, 2017 · 72e6ac2 · 72e6ac2
1 parent f4b2844
commit 72e6ac2
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/clj_http/client.clj b/src/clj_http/client.clj
@@ -102,9 +102,10 @@
   "Resolve and apply Transit's JSON/MessagePack decoding."
   [in type & [opts]]
   {:pre [transit-enabled?]}
-  (let [reader (ns-resolve 'cognitect.transit 'reader)
-        read (ns-resolve 'cognitect.transit 'read)]
-    (read (reader in type (transit-read-opts opts)))))
+  (when (pos? (.available in))
+    (let [reader (ns-resolve 'cognitect.transit 'reader)
+          read (ns-resolve 'cognitect.transit 'read)]
+      (read (reader in type (transit-read-opts opts))))))
 
 (defn ^:dynamic transit-encode
   "Resolve and apply Transit's JSON/MessagePack encoding."