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