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

Use web-request-header-websocket-upgrade?.

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

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

@ -39,7 +39,7 @@
(on (web-request-get (id req)
(web-virtual-host "http" hostname port)
,(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)))))
(define (spawn-broker-server-connection req-id http-req)