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