Mercurial > urweb

comparison src/cjr_print.sml @ 1596:02a50a9d50ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include character encoding in HTTP response headers.
author Karn Kallio <kkallio@eka>
date Wed, 16 Nov 2011 13:51:22 -0430
parents 553a5cc3a4b5
children 4973d31b5fff
comparison
equal deleted inserted replaced
1595:154cfe2eb366 1596:02a50a9d50ea
2812 else 2812 else
2813 box [], 2813 box [],
2814 box (case ek of 2814 box (case ek of
2815 Core.Rpc _ => [string "uw_write_header(ctx, \"Content-type: text/plain\\r\\n\");", 2815 Core.Rpc _ => [string "uw_write_header(ctx, \"Content-type: text/plain\\r\\n\");",
2816 newline] 2816 newline]
2817 | _ => [string "uw_write_header(ctx, \"Content-type: text/html\\r\\n\");", 2817 | _ => [string "uw_write_header(ctx, \"Content-type: text/html; charset=utf-8\\r\\n\");",
2818 newline, 2818 newline,
2819 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", 2819 string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");",
2820 newline, 2820 newline,
2821 string "uw_write(ctx, begin_xhtml);", 2821 string "uw_write(ctx, begin_xhtml);",
2822 newline, 2822 newline,