# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1290204371 18000
# Node ID c17e6144510b498349bec08a8cf4382aa6aa3a2c
# Parent  e2f803080934d0a4d4b5466464a785e065344644
Fix RPC deserialization of channels

diff -r e2f803080934 -r c17e6144510b src/jscomp.sml
--- 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)