9da9559

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

@@ -34,10 +34,10 @@     {::packets-in packets-in      ::packets-out packets-out})) -(defn start-server-process!+(defn start-tcp-server!   "Starts a TCP server at the given port. Returns a channel of clients as they connect.    When the server closes, client channel will be closed, and vice versa."-  [port]+  [& {:keys! [port]}]   (let [server (ServerSocket. port)         clients (chan 64)         shutdown (promise)]@@ -56,6 +56,3 @@           (throw t))))     {::client-chan clients      ::shutdown shutdown}))--(defn start-tcp-server! [& {:keys! [port]}]-  (start-server-process! port))