From b72fca51b093f10868c4f45dc1b75ec668ea8e04 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 26 Nov 2016 11:19:14 +1300 Subject: [PATCH] Export spawn-broker-server-connection --- racket/syndicate/broker/server.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/racket/syndicate/broker/server.rkt b/racket/syndicate/broker/server.rkt index 5ba3c5a..105581a 100644 --- a/racket/syndicate/broker/server.rkt +++ b/racket/syndicate/broker/server.rkt @@ -2,6 +2,7 @@ ;; Generic relay for WebSockets/TCP/etc-based participation in a network. (provide spawn-broker-server + spawn-broker-server-connection (struct-out broker-scope) (struct-out broker-data)) @@ -39,9 +40,9 @@ (web-virtual-host "http" hostname port) ,(string->resource-path resource-path-str)) (when (equal? (dict-ref (web-request-header-headers req) 'upgrade #f) "websocket") - (spawn-connection-handler id req))))) + (spawn-broker-server-connection id req))))) -(define (spawn-connection-handler req-id http-req) +(define (spawn-broker-server-connection req-id http-req) (actor #:name (list 'broker:connection req-id) (on-start (log-syndicate-broker-info "Starting broker connection ~v" req-id))