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

`web-request-header-websocket-upgrade?`

This commit is contained in:
Tony Garnock-Jones 2016-11-26 11:25:59 +13:00
parent df6bd3eb2a
commit 1951a285c8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racketmq/hub/websocket.rkt
View File

@ -16,7 +16,7 @@
(during (http-listener $host-name $port)
(during (canonical-baseurl $baseurl)
(on (web-request-get (id req) (vh host-name port) ("hub" ()))
(when (equal? (dict-ref (web-request-header-headers req) 'upgrade #f) "websocket")
(when (web-request-header-websocket-upgrade? req)
(websocket-subscription id req baseurl))))))
(define (websocket-subscription id req baseurl)