From 1951a285c8c6ad61174b33561b21256d7fcb1d68 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 26 Nov 2016 11:25:59 +1300 Subject: [PATCH] `web-request-header-websocket-upgrade?` --- racketmq/hub/websocket.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racketmq/hub/websocket.rkt b/racketmq/hub/websocket.rkt index 2b49c82..ed067a5 100644 --- a/racketmq/hub/websocket.rkt +++ b/racketmq/hub/websocket.rkt @@ -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)