616efd3

Branches > facts > 616efd3 > files / src / net / bowmap / server

Allow restarting the server via the REPL

Grahp, 2026-08-21

Commit: 616efd3fb1df8809bd5022d806a9008acbdc9a0e
Parent: 0d60f7a

2 changed files:

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

@@ -10,10 +10,15 @@    [java.io EOFException]    [java.net ServerSocket Socket SocketException])) +(defonce server (atom nil))+ (defn start-server! [port]-  (let [server (ServerSocket. port)]+  (when-let [server @server]+    (ServerSocket/.close server))+  (let [server-socket (ServerSocket. port)]+    (reset! server server-socket)     (loop []-      (let [socket (ServerSocket/.accept server)+      (let [socket (ServerSocket/.accept server-socket)             input-stream (Socket/.getInputStream socket)             client-ref (client/client socket)]         (io-thread

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

@@ -10,4 +10,6 @@   (start-server!))  (comment-  (start-server!))+  (require '[clojure.java.io :as io])+  (binding [*out* (io/writer System/out)]+    (start-server!)))