cc5984f

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

@@ -1,5 +1,7 @@ (ns net.bowmap.server.logic   (:require+   ; TODO I'd be skeptical of references to protocol stuff from within server...+   ; This is really only here so the response handler can know who to send the response to    [net.bowmap.protocol.client :as client]    [net.bowmap.server.entity :as entity]    [net.bowmap.server.player :as player]@@ -21,11 +23,9 @@                            :description {:text "Bowmap!"}                            :enforcesSecureChat false}}]) -::entity/uuid ::player/player- ; Want this to be pure, which means you need a way to encode that state change as data?-(defmethod handler ::fact/player-joined [{:keys! [::player/player]}]-  (let [{:keys! [::entity/uuid]} player]+(defmethod handler ::fact/player-joined [{::player/keys! [player]}]+  (let [{::entity/keys! [uuid]} player]     (if (@server/players uuid)       (throw (Exception. "Player tried to join with an existing UUID"))       (commute server/players assoc uuid player))