diff options
| author | Jean-Louis Fuchs <ganwell@fangorn.ch> | 2017-04-15 19:06:03 +0200 |
|---|---|---|
| committer | Leonardo Arena <rnalrd@alpinelinux.org> | 2017-04-25 08:40:32 +0000 |
| commit | e526a03906bcc61aefa7729e23fdfc5f1579f3d8 (patch) | |
| tree | 84a966a5a5fa716e5e66c3827ccbb1f5fa52f3b7 /community/unison/marshalling.patch | |
| parent | f86ad44d64f4847cf06d67e0a1ef0eec28ba0924 (diff) | |
| download | aports-e526a03906bcc61aefa7729e23fdfc5f1579f3d8.tar.bz2 aports-e526a03906bcc61aefa7729e23fdfc5f1579f3d8.tar.xz | |
community/unison: move from testing, update marshalling patch
Diffstat (limited to 'community/unison/marshalling.patch')
| -rw-r--r-- | community/unison/marshalling.patch | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/community/unison/marshalling.patch b/community/unison/marshalling.patch new file mode 100644 index 0000000000..997b90b513 --- /dev/null +++ b/community/unison/marshalling.patch @@ -0,0 +1,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 |