9c9cb1f

src/net/bowmap/server/protocol/buffer.clj modified (view file)

@@ -16,9 +16,16 @@  (defn write-buffer []   (let [baos (ByteArrayOutputStream.)]+    ^{:type ::write-buffer}     (reify WriteBuffer       (write-byte! [buf b]         (^[int] ByteArrayOutputStream/.write baos (bit-and 0xFF b))         buf)       (->frame [_]         (frame/frame (ByteArrayOutputStream/.toByteArray baos))))))++(defmethod print-method ::write-buffer [buf writer]+  (frame/write! (->frame buf)+                (fn [array length]+                  (.write writer "#WriteBuffer ")+                  (.write writer (pr-str (subvec (vec array) 0 length))))))