diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:13:08 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-01-01 11:13:08 -0500 |
| commit | 9f4d65e9ef14f435aa3b6178f98b9ce1476ce056 (patch) | |
| tree | d140aed7feabff611443a56399504f5420ad6a82 /src | |
| parent | 5311577e153580fc5dce3671b47cc49bdfd8e1e9 (diff) | |
Reactive bool
Diffstat (limited to 'src')
| -rw-r--r-- | src/jscomp.sml | 3 |
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, _) = |