summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-03-22 15:05:07 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-03-22 15:05:07 -0400
commit728965a2d50c6a1e3461309016ece1921492ff37 (patch)
tree5a3c064007e7481a452bc60d9dfaeabebb515a53 /src/jscomp.sml
parentaa8373e15c46685b6d6a951342205fd28dc52f1a (diff)
First message send delivered, but not interpreted
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index 00048458..be227035 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -48,7 +48,8 @@ val funcs = [(("Basis", "alert"), "alert"),
(("Basis", "stringToInt_error"), "pi"),
(("Basis", "urlifyInt"), "ts"),
(("Basis", "urlifyFloat"), "ts"),
- (("Basis", "urlifyString"), "escape")]
+ (("Basis", "urlifyString"), "escape"),
+ (("Basis", "urlifyChannel"), "ts")]
structure FM = BinaryMapFn(struct
type ord_key = string * string
@@ -216,6 +217,7 @@ fun process file =
| TFfi ("Basis", "string") => ((EFfiApp ("Basis", "jsifyString", [e]), loc), st)
| TFfi ("Basis", "int") => ((EFfiApp ("Basis", "htmlifyInt", [e]), loc), st)
| TFfi ("Basis", "float") => ((EFfiApp ("Basis", "htmlifyFloat", [e]), loc), st)
+ | TFfi ("Basis", "channel") => ((EFfiApp ("Basis", "htmlifyChannel", [e]), loc), st)
| TFfi ("Basis", "bool") => ((ECase (e,
[((PCon (Enum, PConFfi {mod = "Basis",