From 326540df07e38f3a73fab13ba46b622c598dfd14 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 5 Nov 2008 22:44:08 +0000 Subject: [PATCH] Moving TODOs svn: r12320 --- collects/web-server/private/response.ss | 2 -- 1 file changed, 2 deletions(-) diff --git a/collects/web-server/private/response.ss b/collects/web-server/private/response.ss index 5548598345..22b115b292 100644 --- a/collects/web-server/private/response.ss +++ b/collects/web-server/private/response.ss @@ -59,7 +59,6 @@ (define (output-response conn resp) (output-response/method conn resp 'get)) -; XXX Check method in response (define (output-response/method conn resp meth) (define bresp (response->response/basic (connection-close? conn) resp)) (output-headers+response/basic conn bresp) @@ -298,7 +297,6 @@ (make-200-response modified-seconds mime-type total-content-length))) ; Send the appropriate file content: (when (eq? method 'get) - ; XXX Move out? (adjust-connection-timeout! ; Give it one second per byte. conn (apply + (map (lambda (range)