Thrift: OCaml TSocket fix
Summary: Now closes input channel on close. Also, transport exceptions are cleaner.
Reviewed by: mcslee
Test plan: Yes
Revert plan: yes
git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665198 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/lib/ocaml/src/TBinaryProtocol.ml b/lib/ocaml/src/TBinaryProtocol.ml
index 748423f..fa84e71 100644
--- a/lib/ocaml/src/TBinaryProtocol.ml
+++ b/lib/ocaml/src/TBinaryProtocol.ml
@@ -114,7 +114,7 @@
let ver = self#readI32 in
if (ver land version_mask != version_1) then
(print_int ver;
- raise (P.TProtocolExn (P.BAD_VERSION, "Missing version identifier")))
+ raise (P.E (P.BAD_VERSION, "Missing version identifier")))
else
let s = self#readString in
let mt = P.message_type_of_i (ver land 0xFF) in