Fixing typo re: pull request 156

2012-10-19 14:25:15 -06:00 · 2012-10-19 14:25:15 -06:00 · 23816b496d
commit 23816b496d
parent 43f99839c2
1 changed files with 18 additions and 16 deletions
--- a/collects/web-server/web-server.rkt
+++ b/collects/web-server/web-server.rkt
@ -85,7 +85,8 @@
         #:initial-connection-timeout [initial-connection-timeout 60])
  (define shutdowns
    (map (lambda (port)
-           (serve #:dispatch dispatch
+           (serve 
+            #:dispatch dispatch
            #:confirmation-channel confirmation-channel
            #:connection-close? connection-close?
            #:tcp@ tcp@
@ -108,7 +109,8 @@
  (define shutdowns
    (map (match-lambda
           [(list-rest listen-ip ports)
-            (serve #:dispatch dispatch
+            (serve/ports
+             #:dispatch dispatch
             #:confirmation-channel confirmation-channel
             #:connection-close? connection-close?
             #:tcp@ tcp@