a713166

src/net/bowmap/minecraft_server.clj modified (view file)

@@ -11,7 +11,7 @@ ; The logical server, holds a set of clients connected  (defn run-effects! [messages-out process-chan result]-  (let [{:keys [::client/client ::a/processes ::a/messages]} result]+  (let [{::client/keys! [client ::a/processes ::a/messages]} result]     (doseq [process processes]       (io-thread         (<!! (timeout (::a/process-timeout process)))

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

@@ -52,7 +52,7 @@ ; TODO This is where you could check for optionality I think. If the fields aren't [:optional ...] ; TODO Inline (defn ^:private write-table! [buf table m]-  (reduce (fn [acc {::t/keys [field codec]}]+  (reduce (fn [acc {::t/keys! [field codec]}]             (adorn (codec acc (get m field))                    "Error while writing message table field" {:field field :writer codec :value (get m field)}))           buf table))