syndicate-lang
/
syndicate-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:44 +13:00
parent 8f181f5b4d
commit ad2874f463
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/drivers/web.rkt
View File

@ -15,6 +15,7 @@
(struct-out web-request-header)
(struct-out web-request-cookie)
web-request-header-content-type
web-request-header-websocket-upgrade?
(rename-out [web-response-header <web-response-header>])
(struct-out/defaults [make-web-response-header web-response-header])
@ -93,6 +94,9 @@
(define (web-request-header-content-type req)
(dict-ref (web-request-header-headers req) 'content-type #f))
(define (web-request-header-websocket-upgrade? req)
(equal? (string-downcase (dict-ref (web-request-header-headers req) 'upgrade #f)) "websocket"))
(begin-for-declarations
(define-struct-defaults make-web-response-header web-response-header
(#:code [web-response-header-code 200]