Mercurial > urweb
diff src/jscomp.sml @ 586:1c969230ee7f
Reactive bool
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Thu, 01 Jan 2009 11:13:08 -0500 |
| parents | 35471f067980 |
| children | 4c899701bd28 |
line wrap: on
line diff
--- a/src/jscomp.sml Thu Jan 01 11:04:09 2009 -0500 +++ b/src/jscomp.sml Thu Jan 01 11:13:08 2009 -0500 @@ -34,6 +34,7 @@ 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 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, _) =