         :else     (let [_ (.flip read-buffer)
                         ba (byte-array n)
                         _ (.get read-buffer ba)
-                        _ (debug-bytes ba)]
+                        _ (trace-bytes ba)]
                     (loop [op (.getFirst read-queue)
                            buffer ba]
                       (let [[outcome overflow] (parse op ba)]

                          (do (error "parse error" outcome)
                              (fail-connection client conn (ex-info "Error parsing Redis Reply" {})))))))))))

(defn write! [client ^SelectionKey k]
  (let [^SocketChannel channel (.channel k)
        {:keys [^SocketChannel channel ^ConcurrentLinkedDeque read-queue ^LinkedBlockingDeque write-queue] :as conn} (.attachment k)]
    (loop []
      (if-let [op (.pollFirst write-queue)]
        (let [n (.write channel ^ByteBuffer (.payload op))

        (fail-connection client conn ex)
        (.cancel k)))))

(defn rand-seed [client]
  (-> client
      :seeds
