X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/e59229a2d540b00566f44c8f29764de3ae89b5be..d13f767cf2c23f47fd976380c8c8833ec525eccd:/client-libraries/clojure/src/redis/internal.clj

diff --git a/client-libraries/clojure/src/redis/internal.clj b/client-libraries/clojure/src/redis/internal.clj
index d363a58d..d8399bb8 100644
--- a/client-libraries/clojure/src/redis/internal.clj
+++ b/client-libraries/clojure/src/redis/internal.clj
@@ -39,7 +39,8 @@
   (let [{:keys [host port timeout]} server
         socket (Socket. #^String host #^Integer port)]
     (doto socket
-      (.setTcpNoDelay true))))
+      (.setTcpNoDelay true)
+      (.setKeepAlive true))))
 
 (defn with-server*
   [server-spec func]
@@ -99,8 +100,7 @@
 
 (defn reply-type
   ([#^BufferedReader reader]
-     (let [type (char (.read reader))]
-       type)))
+     (char (.read reader))))
 
 (defmulti parse-reply reply-type :default :unknown)