# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1386862294 18000
# Node ID fda9d5af69e7443311aabf32bd444ab41107a74a
# Parent  420d129c41740789fa525832098745c13252812e
Only output Content-script-type header when there is client-side code

diff -r 420d129c4174 -r fda9d5af69e7 src/cjr_print.sml
--- a/src/cjr_print.sml	Thu Dec 12 10:24:38 2013 -0500
+++ b/src/cjr_print.sml	Thu Dec 12 10:31:34 2013 -0500
@@ -3072,8 +3072,10 @@
                                              newline]
                             | _ => [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,
+                                    case side of
+                                        ServerOnly => box []
+                                      | _ => box [string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");",
+                                                  newline],
                                     string "uw_write(ctx, begin_xhtml);",
                                     newline,
                                     string "uw_mayReturnIndirectly(ctx);",