1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#lang racket/base
(require racket/contract
web-server/http/response-structs)
(define (real-any->response x)
#f)
(define (any->response x)
(if (response? x)
x
(real-any->response x)))
(define (set-any->response! f)
(set! real-any->response f))
(define (can-be-response? x)
(or (response? x)
(and (any->response x)
#t)))
(provide/contract
[any->response (-> any/c (or/c false/c response?))]
[set-any->response! (-> (-> any/c (or/c false/c response?)) void)]
[can-be-response? (-> any/c boolean?)])
|
