c195b2f

src/net/bowmap/network/message/server.clj modified (view file)

@@ -14,11 +14,16 @@   (:import    [io.netty.buffer ByteBuf])) +(defn tablify [schema]+  (if (vector? schema)+    (->table schema)+    schema))+ ; TODO docstring, rename? (defn build-message-readers [registry]   (reduce (fn [acc [packet-id table]]             (assoc acc packet-id-                   (let [reader (->table table)]+                   (let [reader (tablify table)]                      (fn [buf]                        (assoc (reader buf)                               ::msg/id packet-id)))))@@ -128,7 +133,7 @@       ::custom-click-action]}))  (def idfc [])-(defn TODO (fn [buf] (raise "Not shrimplemented yet!")))+(defn TODO [buf] (raise "Not shrimplemented yet!"))  (def ^{:spec (s/map-of ::msg/id (s/fspec :args (s/cat :buf #(instance? ByteBuf %))                                          :ret ::msg/message))}