balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

P2p: bugfix

Browse Source
This commit is contained in:
Vincent Bernardoff 2016-11-16 15:51:01 +01:00 committed by Grégoire Henry
parent 215da8fa7e
commit ba014261dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/node/net/p2p.ml
View File

@ -188,7 +188,7 @@ module Make (P: PARAMS) = struct
let len = EndianBigstring.BigEndian.get_uint16 buf 0 in let len = EndianBigstring.BigEndian.get_uint16 buf 0 in
(* TODO timeout read ??? *) (* TODO timeout read ??? *)
Lwt_utils.read_mbytes ~len fd buf >>= fun () -> Lwt_utils.read_mbytes ~len fd buf >>= fun () ->
let buf = MBytes.sub buf hdrlen len in let buf = MBytes.sub buf 0 len in
match uncrypt buf with match uncrypt buf with
| None -> | None ->
(* TODO track invalid message *) (* TODO track invalid message *)