summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index ef27dba9..ac3c9792 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -34,6 +34,7 @@ structure E = MonoEnv
structure U = MonoUtil
val funcs = [(("Basis", "alert"), "alert"),
+ (("Basis", "htmlifyBool"), "bs"),
(("Basis", "htmlifyFloat"), "ts"),
(("Basis", "htmlifyInt"), "ts"),
(("Basis", "htmlifyString"), "escape"),
@@ -110,6 +111,8 @@ fun jsExp mode skip outer =
fun patCon pc =
case pc of
PConVar n => str (Int.toString n)
+ | PConFfi {mod = "Basis", con = "True", ...} => str "true"
+ | PConFfi {mod = "Basis", con = "False", ...} => str "false"
| PConFfi {con, ...} => str ("\"_" ^ con ^ "\"")
fun isNullable (t, _) =