# HG changeset patch
# User Karn Kallio <kkallio@eka>
# Date 1321467682 16200
# Node ID 02a50a9d50eae711d7ffcbd407814d052e0f6c6b
# Parent  154cfe2eb3666a9d90f2c0db5b5898fbd5644df0
Include character encoding in HTTP response headers.

diff -r 154cfe2eb366 -r 02a50a9d50ea src/cjr_print.sml
--- a/src/cjr_print.sml	Mon Nov 14 09:15:10 2011 -0500
+++ b/src/cjr_print.sml	Wed Nov 16 13:51:22 2011 -0430
@@ -2814,7 +2814,7 @@
                      box (case ek of
                               Core.Rpc _ => [string "uw_write_header(ctx, \"Content-type: text/plain\\r\\n\");",
                                              newline]
-                            | _ => [string "uw_write_header(ctx, \"Content-type: text/html\\r\\n\");",
+                            | _ => [string "uw_write_header(ctx, \"Content-type: text/html; charset=utf-8\\r\\n\");",
                                     newline,
                                     string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");",
                                     newline,