diff options
| author |  Karn Kallio <kkallio@eka> | 2011-05-06 19:51:40 -0530 |
|---|---|---|
| committer | Karn Kallio <kkallio@eka> | 2011-05-06 19:51:40 -0530 |
| commit | 1c9d518d630dbd8f5d622d8be7693d116a577c66 (patch) | |
| tree | 4d7287715256054344afda5ac8fdb5de19558335 | |
| parent | 9da48d9f4d28eea826e0651a0aee761a964682f2 (diff) | |
Include type attribute in script tag for generating valid XHTML.
| -rw-r--r-- | src/cjr_print.sml | 4 |
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 |