diff --git a/racket/syndicate/broker/server.rkt b/racket/syndicate/broker/server.rkt index 3e6b3cc..3c853b7 100644 --- a/racket/syndicate/broker/server.rkt +++ b/racket/syndicate/broker/server.rkt @@ -115,7 +115,13 @@ (require syndicate/actor) (require syndicate/drivers/timer) (require syndicate/drivers/websocket) + (define ssl-options + (match (current-command-line-arguments) + [(vector c p) (websocket-ssl-options c p)] + [_ #f])) (run-ground (spawn-timer-driver) (spawn-websocket-driver) (dataspace (perform-core-action! (spawn-broker-server 8000)) + (when ssl-options + (perform-core-action! (spawn-broker-server 8443 #:ssl-options ssl-options))) (forever))))