blob: 997b90b51308e10c70bc2cdf7d63273cc68bec46 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- a/remote.ml 2016-05-23 18:40:05.000000000 +0200
+++ b/remote.ml 2017-03-23 11:33:24.784228112 +0100
@@ -450,12 +450,7 @@
let s = Bytearray.marshal data [Marshal.No_sharing] in
let l = Bytearray.length s in
((s, 0, l) :: rem, l)),
- (fun buf pos ->
- try Bytearray.unmarshal buf pos
- with Failure s -> raise (Util.Fatal (Printf.sprintf
-"Fatal error during unmarshaling (%s),
-possibly because client and server have been compiled with different\
-versions of the OCaml compiler." s)))
+ (fun buf pos -> Bytearray.unmarshal buf pos)
let makeMarshalingFunctions payloadMarshalingFunctions string =
let (marshalPayload, unmarshalPayload) = payloadMarshalingFunctions in
|
