96acb0b

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

@@ -170,7 +170,11 @@   "Returns a writer that prefixes the value with a boolean indicating whether    it is present, and only writes the value via 'writer' if the value is non-nil."   [writer]-  (context-optional> (then> boolean> writer)))+  (let [writer (context-optional> writer)]+    (fn [buf x]+      (-> buf+        (boolean> (some? x))+        (writer x)))))  (def game-profile> (map> ::p/uuid uuid>                          ::p/username (string> 16)