Closing static file output

2010-09-23 10:04:42 -06:00 · 2010-09-23 10:04:42 -06:00 · 8aea4b11a5
commit 8aea4b11a5
parent d2a3cbf6d0
1 changed files with 1 additions and 1 deletions
--- a/collects/web-server/http/response.rkt
+++ b/collects/web-server/http/response.rkt
@ -264,7 +264,7 @@
                         (- (cdr range) (car range)))
                       converted-ranges)))
        (with-handlers ([exn:fail? (lambda (exn) (network-error 'output-file (exn-message exn)))])
-          (call-with-input-file file-path
+          (call-with-input-file* file-path
            (lambda (input)
              (if (= (length converted-ranges) 1)
                  ; Single ranges (in 200 or 206 responses) are sent straight out