From 9f4d65e9ef14f435aa3b6178f98b9ce1476ce056 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 1 Jan 2009 11:13:08 -0500
Subject: Reactive bool

---
 src/jscomp.sml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/jscomp.sml')

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, _) =
-- 
cgit v1.2.3