Fixing a few errors post testing
This commit is contained in:
parent
d28dc2ae41
commit
8570b48cec
|
@ -1,5 +1,6 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
(require racket/contract
|
(require racket/contract
|
||||||
|
web-server/servlet/servlet-structs
|
||||||
web-server/http)
|
web-server/http)
|
||||||
|
|
||||||
(define k-url?
|
(define k-url?
|
||||||
|
|
|
@ -2,6 +2,7 @@
|
||||||
(require racket/match
|
(require racket/match
|
||||||
racket/contract)
|
racket/contract)
|
||||||
(require "manager.rkt"
|
(require "manager.rkt"
|
||||||
|
web-server/http
|
||||||
web-server/servlet/servlet-structs)
|
web-server/servlet/servlet-structs)
|
||||||
(provide/contract
|
(provide/contract
|
||||||
[create-LRU-manager
|
[create-LRU-manager
|
||||||
|
|
|
@ -1,7 +1,8 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
(require racket/contract)
|
(require racket/contract)
|
||||||
(require "manager.rkt")
|
(require "manager.rkt")
|
||||||
(require web-server/servlet/servlet-structs)
|
(require web-server/servlet/servlet-structs
|
||||||
|
web-server/http)
|
||||||
(provide/contract
|
(provide/contract
|
||||||
[create-none-manager
|
[create-none-manager
|
||||||
(->
|
(->
|
||||||
|
|
|
@ -3,6 +3,7 @@
|
||||||
racket/contract)
|
racket/contract)
|
||||||
(require "manager.rkt")
|
(require "manager.rkt")
|
||||||
(require web-server/private/timer
|
(require web-server/private/timer
|
||||||
|
web-server/http
|
||||||
web-server/servlet/servlet-structs)
|
web-server/servlet/servlet-structs)
|
||||||
(provide/contract
|
(provide/contract
|
||||||
[create-timeout-manager
|
[create-timeout-manager
|
||||||
|
|
|
@ -14,7 +14,7 @@ provides an indirection from application-specific response formats and the inter
|
||||||
HTTP response format, @racket[response].
|
HTTP response format, @racket[response].
|
||||||
|
|
||||||
@deftogether[[
|
@deftogether[[
|
||||||
@defthing[(can-be-response? [x any/c])
|
@defproc[(can-be-response? [x any/c])
|
||||||
boolean?]
|
boolean?]
|
||||||
@defproc[(any->response [x any/c])
|
@defproc[(any->response [x any/c])
|
||||||
(or/c false/c response?)]
|
(or/c false/c response?)]
|
||||||
|
@ -24,6 +24,7 @@ HTTP response format, @racket[response].
|
||||||
|
|
||||||
@racket[any->response] coerces any value into a response or returns @racket[#f] if coercion is not possible.
|
@racket[any->response] coerces any value into a response or returns @racket[#f] if coercion is not possible.
|
||||||
@racket[any->response] guarantees that any @racket[response?] input must always be returned exactly (i.e. @racket[eq?].)
|
@racket[any->response] guarantees that any @racket[response?] input must always be returned exactly (i.e. @racket[eq?].)
|
||||||
|
The default always returns @racket[#f], signifying that no coercion is possible.
|
||||||
|
|
||||||
@racket[can-be-response?] returns @racket[#t] if @racket[x] is a response or can be turned into a response by calling
|
@racket[can-be-response?] returns @racket[#t] if @racket[x] is a response or can be turned into a response by calling
|
||||||
@racket[any->response].
|
@racket[any->response].
|
||||||
|
|
Loading…
Reference in New Issue
Block a user