summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Karn Kallio <kkallio@eka>2011-11-16 12:51:22 -0530
committerGravatar Karn Kallio <kkallio@eka>2011-11-16 12:51:22 -0530
commit5fb97dd85f3503abed366598d4f00396b8a23d4f (patch)
treeab67c87b96dba93e3f98f71d3e3d8dfae3e09e2e
parentbf66a540f165fe6bf285732bb203e03a33b190ec (diff)
Include character encoding in HTTP response headers.
-rw-r--r--src/cjr_print.sml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index 4e3e1570..1c809f38 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -2814,7 +2814,7 @@ fun p_file env (ds, ps) =
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,