54711cb

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

@@ -12,7 +12,7 @@  ; TODO Global state D: (defonce instance (atom {::clients {}-                         ::client-messages-ids->out-channels? {}}))+                         ::message-out-channels {}}))  (defn start! [server]   (swap! instance assoc ::server server)@@ -28,7 +28,7 @@  (defn send-message! [client msg]   ; TODO is put! okay?-  (put! ((::client-messages-ids->out-channels? @instance) (::client/id client)) msg))+  (put! ((::message-out-channels @instance) (::client/id client)) msg))  (defn keep-alive! [client]   (io-thread@@ -70,5 +70,5 @@           (swap! instance update ::clients assoc (::client/id client) client)           (recur client))))     (swap! instance update ::clients assoc (::client/id client) client)-    (swap! instance update ::client-messages-ids->out-channels? assoc (::client/id client) messages-out)+    (swap! instance update ::message-out-channels assoc (::client/id client) messages-out)     client))