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

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

@ -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