Notes

svn: r6556
2007-06-09 04:52:19 +00:00 · 2007-06-09 04:52:19 +00:00 · 2a37cfbe6f
commit 2a37cfbe6f
parent ebd92ebf0a
1 changed files with 10 additions and 9 deletions
--- a/collects/web-server/private/response.ss
+++ b/collects/web-server/private/response.ss
@ -206,6 +206,7 @@
    (output-headers+response/basic conn bresp)
    (when (eq? method 'get)
      ; Give it one second per byte.
+      ; XXX Move out
      (adjust-connection-timeout! conn len)
      (with-handlers ([void (lambda (e) (network-error 'output-file/partial (exn-message e)))])
        (call-with-input-file file-path