web-response-successful?
This commit is contained in:
parent
c8b7be22cc
commit
4d6a2986d5
|
@ -13,6 +13,7 @@
|
|||
(rename-out [web-response-header <web-response-header>])
|
||||
(struct-out/defaults [make-web-response-header web-response-header])
|
||||
web-response-header-code-type
|
||||
web-response-successful?
|
||||
(struct-out web-response-complete)
|
||||
(struct-out web-response-chunked)
|
||||
(rename-out [web-response-websocket <web-response-websocket>])
|
||||
|
@ -101,6 +102,9 @@
|
|||
[(<= 500 code 599) 'server-error]
|
||||
[else 'other]))))
|
||||
|
||||
(define (web-response-successful? rh)
|
||||
(eq? (web-response-header-code-type rh) 'successful))
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Ground-level communication messages
|
||||
|
||||
|
|
Loading…
Reference in New Issue