summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Karn Kallio <kkallio@eka>2011-05-06 19:51:40 -0530
committerGravatar Karn Kallio <kkallio@eka>2011-05-06 19:51:40 -0530
commite76ab5cc70d54021d19c9aabbb632c922297dda6 (patch)
tree4d7287715256054344afda5ac8fdb5de19558335
parent20d6c26b70cd9cb5e352900fc9e823c8119484ca (diff)
Include type attribute in script tag for generating valid XHTML.
-rw-r--r--src/cjr_print.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index 9e953737..009f8e45 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -2661,14 +2661,14 @@ fun p_file env (ds, ps) =
| _ =>
let
val scripts =
- "<script src=\\\""
+ "<script type=\\\"text/javascript\\\" src=\\\""
^ OS.Path.joinDirFile {dir = Settings.getUrlPrefix (),
file = "app.js"}
^ "\\\"></script>\\n"
in
foldl (fn (x, scripts) =>
scripts
- ^ "<script src=\\\"" ^ x ^ "\\\"></script>\\n")
+ ^ "<script type=\\\"text/javascript\\\" src=\\\"" ^ x ^ "\\\"></script>\\n")
scripts (Settings.getScripts ())
end
in