suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Normalize max-waiting contracts

Browse Source
This commit is contained in:
Jay McCarthy 2013-04-11 08:31:10 -06:00
parent 1bdf6e67dd
commit f29a071774
6 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/configuration/configuration-table-structs.rkt
View File

@ -30,7 +30,7 @@
(provide/contract (provide/contract
[struct configuration-table [struct configuration-table
([port port-number?] ([port port-number?]
[max-waiting natural-number/c] [max-waiting exact-nonnegative-integer?]
[initial-connection-timeout natural-number/c] [initial-connection-timeout natural-number/c]
[default-host host-table?] [default-host host-table?]
[virtual-hosts (listof (cons/c string? host-table?))])] [virtual-hosts (listof (cons/c string? host-table?))])]

2
collects/web-server/private/dispatch-server-sig.rkt
View File

@ -15,7 +15,7 @@
((contracted ((contracted
[port tcp-listen-port?] [port tcp-listen-port?]
[listen-ip (or/c string? false/c)] [listen-ip (or/c string? false/c)]
[max-waiting integer?] [max-waiting exact-nonnegative-integer?]
[initial-connection-timeout integer?] [initial-connection-timeout integer?]
[read-request [read-request
(connection? (connection?

2
collects/web-server/scribblings/ctable-structs.scrbl
View File

@ -17,7 +17,7 @@ the configuration table S-expression file format described in
@defstruct[configuration-table @defstruct[configuration-table
([port port-number?] ([port port-number?]
[max-waiting natural-number/c] [max-waiting exact-nonnegative-integer?]
[initial-connection-timeout natural-number/c] [initial-connection-timeout natural-number/c]
[default-host host-table?] [default-host host-table?]
[virtual-hosts (listof (cons/c string? host-table?))])] [virtual-hosts (listof (cons/c string? host-table?))])]

2
collects/web-server/scribblings/dispatch-server.scrbl
View File

@ -42,7 +42,7 @@ The @racket[dispatch-server^] signature is an alias for
@defthing[port tcp-listen-port?]{Specifies the port to serve on.} @defthing[port tcp-listen-port?]{Specifies the port to serve on.}
@defthing[listen-ip (or/c string? false/c)]{Passed to @racket[tcp-listen].} @defthing[listen-ip (or/c string? false/c)]{Passed to @racket[tcp-listen].}
@defthing[max-waiting exact-integer?]{Passed to @racket[tcp-listen].} @defthing[max-waiting exact-nonnegative-integer?]{Passed to @racket[tcp-listen].}
@defthing[initial-connection-timeout integer?]{Specifies the initial timeout given to a connection.} @defthing[initial-connection-timeout integer?]{Specifies the initial timeout given to a connection.}
@defproc[(read-request [c connection?] @defproc[(read-request [c connection?]
[p tcp-listen-port?] [p tcp-listen-port?]

2
collects/web-server/scribblings/web-config-unit.scrbl
View File

@ -22,7 +22,7 @@
Provides contains the following identifiers. Provides contains the following identifiers.
} }
@defthing[max-waiting integer?]{ @defthing[max-waiting exact-nonnegative-integer?]{
Passed to @racket[tcp-accept]. Passed to @racket[tcp-accept].
} }

6
collects/web-server/web-server.rkt
View File

@ -21,7 +21,7 @@
#:tcp@ (unit/c (import) (export tcp^)) #:tcp@ (unit/c (import) (export tcp^))
#:port tcp-listen-port? #:port tcp-listen-port?
#:listen-ip (or/c false/c string?) #:listen-ip (or/c false/c string?)
#:max-waiting number? #:max-waiting exact-nonnegative-integer?
#:initial-connection-timeout number?) #:initial-connection-timeout number?)
(-> void))] (-> void))]
[serve/ports [serve/ports
@ -31,7 +31,7 @@
#:tcp@ (unit/c (import) (export tcp^)) #:tcp@ (unit/c (import) (export tcp^))
#:ports (listof tcp-listen-port?) #:ports (listof tcp-listen-port?)
#:listen-ip (or/c false/c string?) #:listen-ip (or/c false/c string?)
#:max-waiting number? #:max-waiting exact-nonnegative-integer?
#:initial-connection-timeout number?) #:initial-connection-timeout number?)
(-> void))] (-> void))]
[serve/ips+ports [serve/ips+ports
@ -40,7 +40,7 @@
#:connection-close? boolean? #:connection-close? boolean?
#:tcp@ (unit/c (import) (export tcp^)) #:tcp@ (unit/c (import) (export tcp^))
#:ips+ports (listof (cons/c (or/c false/c string?) (listof tcp-listen-port?))) #:ips+ports (listof (cons/c (or/c false/c string?) (listof tcp-listen-port?)))
#:max-waiting number? #:max-waiting exact-nonnegative-integer?
#:initial-connection-timeout number?) #:initial-connection-timeout number?)
(-> void))] (-> void))]
[do-not-return (-> void)] [do-not-return (-> void)]