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

bytes

Browse Source 
svn: r13392
This commit is contained in:
Jay McCarthy 2009-02-03 20:14:54 +00:00
parent 04625886d2
commit 2e3a1e91bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/configuration/responders.ss
View File

@ -111,7 +111,7 @@
; read-file : str -> str ; read-file : str -> str
(define (read-file path) (define (read-file path)
(call-with-input-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 (provide/contract
[file-response ((natural-number/c bytes? path-string?) () #:rest (listof header?) . ->* . response/c)] [file-response ((natural-number/c bytes? path-string?) () #:rest (listof header?) . ->* . response/c)]