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

Notes

Browse Source 
svn: r6556
This commit is contained in:
Jay McCarthy 2007-06-09 04:52:19 +00:00
parent ebd92ebf0a
commit 2a37cfbe6f
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,15 +77,15 @@
[(response/incremental? resp) [(response/incremental? resp)
(if close? (if close?
resp resp
(make-response/incremental (make-response/incremental
(response/basic-code resp) (response/basic-code resp)
(response/basic-message resp) (response/basic-message resp)
(response/basic-seconds resp) (response/basic-seconds resp)
(response/basic-mime resp) (response/basic-mime resp)
(list* (list*
(cons 'Transfer-Encoding "chunked") (cons 'Transfer-Encoding "chunked")
(response/basic-extras resp)) (response/basic-extras resp))
(response/incremental-generator resp)))] (response/incremental-generator resp)))]
[(and (pair? resp) (bytes? (car resp))) [(and (pair? resp) (bytes? (car resp)))
(response->response/basic (response->response/basic
close? close?
@ -206,6 +206,7 @@
(output-headers+response/basic conn bresp) (output-headers+response/basic conn bresp)
(when (eq? method 'get) (when (eq? method 'get)
; Give it one second per byte. ; Give it one second per byte.
; XXX Move out
(adjust-connection-timeout! conn len) (adjust-connection-timeout! conn len)
(with-handlers ([void (lambda (e) (network-error 'output-file/partial (exn-message e)))]) (with-handlers ([void (lambda (e) (network-error 'output-file/partial (exn-message e)))])
(call-with-input-file file-path (call-with-input-file file-path