bytes

svn: r13392
2009-02-03 20:14:54 +00:00 · 2009-02-03 20:14:54 +00:00 · 2e3a1e91bd
commit 2e3a1e91bd
parent 04625886d2
1 changed files with 1 additions and 1 deletions
--- a/collects/web-server/configuration/responders.ss
+++ b/collects/web-server/configuration/responders.ss
@ -111,7 +111,7 @@
 ; read-file : str -> str
 (define (read-file path)
  (call-with-input-file path
-    (lambda (in) (read-string (file-size path) in))))
+    (lambda (in) (read-bytes (file-size path) in))))

 (provide/contract
 [file-response ((natural-number/c bytes? path-string?) () #:rest (listof header?) . ->* . response/c)]