From 9af4e88681af21056ea4e6483aaa4b3564df395f Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 5 Jun 2016 12:06:28 -0400 Subject: [PATCH] Optional SSL options for broker --- racket/syndicate/broker/server.rkt | 6 ++++++ 1 file changed, 6 insertions(+) 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))))