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
commit1c9d518d630dbd8f5d622d8be7693d116a577c66 (patch)
tree4d7287715256054344afda5ac8fdb5de19558335
parent9da48d9f4d28eea826e0651a0aee761a964682f2 (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