near/computersandblues.looptober
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Allow custom port

Browse source
This commit is contained in:
arne 2023-10-03 11:15:06 +02:00
commit bac6645c9f
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
looptober.clj
View file

@ -93,6 +93,9 @@
(reset! server nil))) (reset! server nil)))
(defn -main [& args] (defn -main [& args]
(println "Starting server on port 8080") (let [port (Integer/parseInt (or (first args) "8080") 10)]
(reset! server (run-server #'app {:port 8080})) (println (format "Starting server on port %d" port))
@(promise)) ;; keep running (reset! server (run-server #'app {:port port}))
@(promise))) ;; keep running
(comment (reset! server (run-server #'app {:port 8080})))