From 1780c5886a38b23fd400ab1603ae25cebc13a874 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 8 Sep 2006 20:38:40 +0000 Subject: [PATCH] utf8 svn: r4281 --- collects/web-server/configuration.ss | 2 +- collects/web-server/mime-types.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/configuration.ss b/collects/web-server/configuration.ss index ae91156329..1a1be35b01 100644 --- a/collects/web-server/configuration.ss +++ b/collects/web-server/configuration.ss @@ -169,7 +169,7 @@ (define (servlet-loading-responder url exn) (make-response/full 500 "Servlet didn't load" (current-seconds) - #"text/plain" ;TEXT/HTML-MIME-TYPE + #"text/plain; charset=utf-8" ;TEXT/HTML-MIME-TYPE '() ; check (list "Servlet didn't load.\n" (exn->string exn)))) diff --git a/collects/web-server/mime-types.ss b/collects/web-server/mime-types.ss index d2d075519a..79d68543ea 100644 --- a/collects/web-server/mime-types.ss +++ b/collects/web-server/mime-types.ss @@ -14,7 +14,7 @@ ;; 2. Assuming that 7-bit ASCII is correct for mime-type (define (make-get-mime-type a-path) (let ([MIME-TYPE-TABLE (make-hash-table)] - [DEFAULT-MIME-TYPE #"text/plain"] + [DEFAULT-MIME-TYPE #"text/plain; charset=utf-8"] [file-suffix-regexp (byte-regexp #".*\\.([^\\.]*$)")]) (with-input-from-file a-path (lambda ()