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
[struct configuration-table
([port port-number?]
[max-waiting natural-number/c]
[max-waiting exact-nonnegative-integer?]
[initial-connection-timeout natural-number/c]
[default-host 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
[port tcp-listen-port?]
[listen-ip (or/c string? false/c)]
[max-waiting integer?]
[max-waiting exact-nonnegative-integer?]
[initial-connection-timeout integer?]
[read-request
(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
([port port-number?]
[max-waiting natural-number/c]
[max-waiting exact-nonnegative-integer?]
[initial-connection-timeout natural-number/c]
[default-host 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[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.}
@defproc[(read-request [c connection?]
[p tcp-listen-port?]

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

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

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

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