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

web-response-header-code-type

This commit is contained in:
Tony Garnock-Jones 2016-10-30 20:30:49 -04:00
parent 2d1ad8a62d
commit c9eddfa0b7
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,6 +11,7 @@
(rename-out [web-response-header <web-response-header>])
(struct-out/defaults [make-web-response-header web-response-header])
web-response-header-code-type
(struct-out web-response-complete)
(struct-out web-response-chunked)
(rename-out [web-response-websocket <web-response-websocket>])
@ -80,6 +81,18 @@
(define-struct-defaults make-web-response-websocket web-response-websocket
(#:headers [web-response-websocket-headers '()])))
(define (web-response-header-code-type rh)
(if (not rh) ;; network failure of some kind; respondent did not respond
'network-failure
(let ((code (web-response-header-code rh)))
(cond
[(<= 100 code 199) 'informational]
[(<= 200 code 299) 'successful]
[(<= 300 code 399) 'redirection]
[(<= 400 code 499) 'client-error]
[(<= 500 code 599) 'server-error]
[else 'other]))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Ground-level communication messages