diff src/settings.sml @ 1956:ac1be85e91ad

Add 'html5' .urp directive
author Adam Chlipala <adam@chlipala.net>
date Thu, 09 Jan 2014 17:27:24 -0500
parents 0992323fa264
children 3cc14f1e47d1
line wrap: on
line diff
--- a/src/settings.sml	Tue Jan 07 08:36:18 2014 -0500
+++ b/src/settings.sml	Thu Jan 09 17:27:24 2014 -0500
@@ -716,4 +716,8 @@
                   else "\"" ^ lowercase s ^ "\""
 fun mangleSqlCatalog s = if !mangle then "uw_" ^ s else lowercase s
 
+val html5 = ref false
+fun setIsHtml5 b = html5 := b
+fun getIsHtml5 () = !html5
+
 end