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

Moving TODOs

Browse Source 
svn: r12320
This commit is contained in:
Jay McCarthy 2008-11-05 22:44:08 +00:00
parent 791d43ecd3
commit 326540df07
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/private/response.ss
View File

@ -59,7 +59,6 @@
(define (output-response conn resp) (define (output-response conn resp)
(output-response/method conn resp 'get)) (output-response/method conn resp 'get))
; XXX Check method in response
(define (output-response/method conn resp meth) (define (output-response/method conn resp meth)
(define bresp (response->response/basic (connection-close? conn) resp)) (define bresp (response->response/basic (connection-close? conn) resp))
(output-headers+response/basic conn bresp) (output-headers+response/basic conn bresp)
@ -298,7 +297,6 @@
(make-200-response modified-seconds mime-type total-content-length))) (make-200-response modified-seconds mime-type total-content-length)))
; Send the appropriate file content: ; Send the appropriate file content:
(when (eq? method 'get) (when (eq? method 'get)
; XXX Move out?
(adjust-connection-timeout! ; Give it one second per byte. (adjust-connection-timeout! ; Give it one second per byte.
conn conn
(apply + (map (lambda (range) (apply + (map (lambda (range)