diff options
author | Adam Chlipala <adamc@csail.mit.edu> | 2016-09-20 14:26:58 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@csail.mit.edu> | 2016-09-20 14:26:58 -0400 |
commit | 6720a4578afab577f9721485fbb8e810104d6249 (patch) | |
tree | 29e6d22181a1bd58271a3b10ef5e457b37b9b06e /src/compiler.sml | |
parent | d41ec985e9839d5c01d69363cfca1dfda25536ab (diff) |
Make HTML5 the default and add 'xhtml' .urp directive
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 87d175ed..4fe2dfd5 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -485,6 +485,8 @@ fun parseUrp' accLibs fname = fun hasSpaceLine () = case inputCommentableLine inf of Content s => s = "debug" orelse s = "profile" + orelse s = "html5" orelse s = "xhtml" + orelse s = "noMangleSql" orelse s = "lessSafeFfi" orelse CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine () | EndOfFile => false | OnlyComment => hasSpaceLine () @@ -890,6 +892,7 @@ fun parseUrp' accLibs fname = | "timeFormat" => Settings.setTimeFormat arg | "noMangleSql" => Settings.setMangleSql false | "html5" => Settings.setIsHtml5 true + | "xhtml" => Settings.setIsHtml5 false | "lessSafeFfi" => Settings.setLessSafeFfi true | "file" => |