From 2e3a1e91bd70de67ecacfcee69255b1527e441bd Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 3 Feb 2009 20:14:54 +0000 Subject: [PATCH] bytes svn: r13392 --- collects/web-server/configuration/responders.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/web-server/configuration/responders.ss b/collects/web-server/configuration/responders.ss index de6301d063..0bd850148f 100644 --- 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)]