From 2f7313a48917145cc50af527240bd966894760eb Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 26 Nov 2016 11:27:14 +1300 Subject: [PATCH] Use web-request-header-websocket-upgrade?. --- racket/syndicate/broker/server.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/syndicate/broker/server.rkt b/racket/syndicate/broker/server.rkt index 7e7a801..597394c 100644 --- a/racket/syndicate/broker/server.rkt +++ b/racket/syndicate/broker/server.rkt @@ -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)