syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Export spawn-broker-server-connection

This commit is contained in:
Tony Garnock-Jones 2016-11-26 11:19:14 +13:00
parent f1a7e10fbf
commit b72fca51b0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/syndicate/broker/server.rkt
View File

@ -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))