Use web-request-header-websocket-upgrade?.
This commit is contained in:
parent
ad2874f463
commit
2f7313a489
|
@ -39,7 +39,7 @@
|
||||||
(on (web-request-get (id req)
|
(on (web-request-get (id req)
|
||||||
(web-virtual-host "http" hostname port)
|
(web-virtual-host "http" hostname port)
|
||||||
,(string->resource-path resource-path-str))
|
,(string->resource-path resource-path-str))
|
||||||
(when (equal? (dict-ref (web-request-header-headers req) 'upgrade #f) "websocket")
|
(when (web-request-header-websocket-upgrade? req)
|
||||||
(spawn-broker-server-connection id req)))))
|
(spawn-broker-server-connection id req)))))
|
||||||
|
|
||||||
(define (spawn-broker-server-connection req-id http-req)
|
(define (spawn-broker-server-connection req-id http-req)
|
||||||
|
|
Loading…
Reference in New Issue