diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 13:47:20 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 13:47:20 -0400 |
commit | c4ddce15e08c0b2f26f7ff773b87654fc5f92938 (patch) | |
tree | d0d08dc15edc8e7dc1f916a592160f8c9e561bd2 /src/jscomp.sml | |
parent | b6fef1cc8832978bd9673df1a968d06d42bc2eb0 (diff) |
Some client-side error handling
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r-- | src/jscomp.sml | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index d7a74fab..f839a67d 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -53,7 +53,11 @@ val funcs = [(("Basis", "alert"), "alert"), (("Basis", "strcat"), "cat"), (("Basis", "intToString"), "ts"), (("Basis", "floatToString"), "ts"), - (("Basis", "onError"), "onError")] + (("Basis", "onError"), "onError"), + (("Basis", "onFail"), "onFail"), + (("Basis", "onConnectFail"), "onConnectFail"), + (("Basis", "onDisconnect"), "onDisconnect"), + (("Basis", "onServerError"), "onServerError")] structure FM = BinaryMapFn(struct type ord_key = string * string @@ -764,6 +768,11 @@ fun process file = end | EBinop (s, e1, e2) => let + val s = + case s of + "!strcmp" => "==" + | _ => s + val (e1, st) = jsE inner (e1, st) val (e2, st) = jsE inner (e2, st) in |