changeset 1319:c17e6144510b

Fix RPC deserialization of channels
author Adam Chlipala <adam@chlipala.net>
date Fri, 19 Nov 2010 17:06:11 -0500
parents e2f803080934
children add5ae41969e
files src/jscomp.sml
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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)