                             (= ReplyParser/PARSE_OVERFLOW outcome)
                             (do (debug (remote-address k) "completed parsing op, but more byte(s) remain")
                                 (when overflow
-                                  (warn (remote-address k) "buffer has an additional" (alength overflow) "byte(s)")
+                                  (debug (remote-address k) "buffer has an additional" (alength overflow) "byte(s)")
                                   (trace-bytes overflow (str (remote-address k) " remaining byte(s) in receive buffer")))
                                 (.removeFirst read-queue)
                                 (complete op client)

   (let [current-ops (.interestOps k)
         new-ops     (bit-and current-ops (bit-not x))]
     (when (not= current-ops new-ops)
       (debug (remote-address k) "ignoring op" (ops->str current-ops) "->" (ops->str new-ops)))
     (.interestOps k new-ops))))

(defmulti dispatch

(defn connect
  "Creates and attempts to establish a connection to Redis"
  ([{:keys [seeds] :as config}]
   {:pre [(seq seeds) (every? address? seeds)]}
   (let [client (create-connection config)]
     (loop [[seed & more] (seq seeds)]
       (debug "attempting to connect to" seed)
