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

Fixing typo re: pull request 156

Browse Source
This commit is contained in:
Jay McCarthy 2012-10-19 14:25:15 -06:00
parent 43f99839c2
commit 23816b496d
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -85,14 +85,15 @@
#:initial-connection-timeout [initial-connection-timeout 60])
(define shutdowns
(map (lambda (port)
(serve #:dispatch dispatch
#:confirmation-channel confirmation-channel
#:connection-close? connection-close?
#:tcp@ tcp@
#:port port
#:listen-ip listen-ip
#:max-waiting max-waiting
#:initial-connection-timeout initial-connection-timeout))
(serve
#:dispatch dispatch
#:confirmation-channel confirmation-channel
#:connection-close? connection-close?
#:tcp@ tcp@
#:port port
#:listen-ip listen-ip
#:max-waiting max-waiting
#:initial-connection-timeout initial-connection-timeout))
ports))
(lambda ()
(for-each apply shutdowns)))
@ -108,14 +109,15 @@
(define shutdowns
(map (match-lambda
[(list-rest listen-ip ports)
(serve #:dispatch dispatch
#:confirmation-channel confirmation-channel
#:connection-close? connection-close?
#:tcp@ tcp@
#:ports ports
#:listen-ip listen-ip
#:max-waiting max-waiting
#:initial-connection-timeout initial-connection-timeout)])
(serve/ports
#:dispatch dispatch
#:confirmation-channel confirmation-channel
#:connection-close? connection-close?
#:tcp@ tcp@
#:ports ports
#:listen-ip listen-ip
#:max-waiting max-waiting
#:initial-connection-timeout initial-connection-timeout)])
ips+ports))
(lambda ()
(for-each apply shutdowns)))