diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-22 15:05:07 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-22 15:05:07 -0400 |
| commit | 728965a2d50c6a1e3461309016ece1921492ff37 (patch) | |
| tree | 5a3c064007e7481a452bc60d9dfaeabebb515a53 /src/jscomp.sml | |
| parent | aa8373e15c46685b6d6a951342205fd28dc52f1a (diff) | |
First message send delivered, but not interpreted
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 4 |
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", |