Allow CHAT_PORT to override chat.rkt example default port

2024-06-12 12:30:35 +02:00 · 2024-06-12 12:30:35 +02:00 · de03fc12f1
parent 4ba9eee1c7
commit de03fc12f1
1 changed files with 1 additions and 1 deletions
--- a/syndicate-examples/chat.rkt
+++ b/syndicate-examples/chat.rkt
@ -42,5 +42,5 @@
    (run-tcp-client-relay
     ds
     #:hostname "localhost"
-     #:port 9001
+     #:port (string->number (or (getenv "CHAT_PORT") "9001"))
     #:import (lambda (v) (gatekeeper-resolve (embedded-value v) ref on-connected)))))