diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-01-08 10:30:14 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-01-08 10:30:14 -0500 |
| commit | a1aa2b791511e172b177516e7f58390a2d074a2b (patch) | |
| tree | d4648aecea89bd3799de7a6ee50a6333bd967e1a /src/jscomp.sml | |
| parent | c2e441e71003b5e49d1dc880f26b25792501342b (diff) | |
Injected a non-special-case datatype
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index bb457ab3..64cb1771 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -40,7 +40,7 @@ val funcs = [(("Basis", "alert"), "alert"), (("Basis", "htmlifyBool"), "bs"), (("Basis", "htmlifyFloat"), "ts"), (("Basis", "htmlifyInt"), "ts"), - (("Basis", "htmlifyString"), "escape"), + (("Basis", "htmlifyString"), "eh"), (("Basis", "new_client_source"), "sc"), (("Basis", "set_client_source"), "sv")] @@ -274,7 +274,10 @@ fun process file = str loc "}"] else e - | _ => e), + | _ => strcat loc [str loc ("{n:" ^ Int.toString cn + ^ ",v:"), + e, + str loc "}"]), st) end) st cs |