Mercurial > urweb
diff src/jscomp.sml @ 1319:c17e6144510b
Fix RPC deserialization of channels
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Fri, 19 Nov 2010 17:06:11 -0500 |
| parents | acabf3935060 |
| children | 0d8bd8ae8417 |
line wrap: on
line diff
--- a/src/jscomp.sml Fri Nov 19 15:01:06 2010 -0500 +++ b/src/jscomp.sml Fri Nov 19 17:06:11 2010 -0500 @@ -311,7 +311,7 @@ | TFfi ("Basis", "char") => ("uu(t[i++])", st) | TFfi ("Basis", "int") => ("parseInt(t[i++])", st) | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st) - | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i]) : null)", st) + | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i-1]) : null)", st) | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st)