Mercurial > urweb
diff src/jscomp.sml @ 668:b0c1a46b1f15
First message send delivered, but not interpreted
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 22 Mar 2009 15:05:07 -0400 |
| parents | bab524996fca |
| children | f73913d97a40 |
line wrap: on
line diff
--- a/src/jscomp.sml Thu Mar 19 16:34:13 2009 -0400 +++ b/src/jscomp.sml Sun Mar 22 15:05:07 2009 -0400 @@ -48,7 +48,8 @@ (("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 @@ | 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",