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

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

@ -85,7 +85,8 @@
#: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
#:dispatch dispatch
#:confirmation-channel confirmation-channel #:confirmation-channel confirmation-channel
#:connection-close? connection-close? #:connection-close? connection-close?
#:tcp@ tcp@ #:tcp@ tcp@
@ -108,7 +109,8 @@
(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
#:dispatch dispatch
#:confirmation-channel confirmation-channel #:confirmation-channel confirmation-channel
#:connection-close? connection-close? #:connection-close? connection-close?
#:tcp@ tcp@ #:tcp@ tcp@