summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-01-01 11:13:08 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-01-01 11:13:08 -0500
commit9f4d65e9ef14f435aa3b6178f98b9ce1476ce056 (patch)
treed140aed7feabff611443a56399504f5420ad6a82 /src
parent5311577e153580fc5dce3671b47cc49bdfd8e1e9 (diff)
Reactive bool
Diffstat (limited to 'src')
-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, _) =