From ba014261dc233c18fef28481b0ce0de269b24f96 Mon Sep 17 00:00:00 2001
From: Vincent Bernardoff <vb@luminar.eu.org>
Date: Wed, 16 Nov 2016 15:51:01 +0100
Subject: [PATCH] P2p: bugfix

---
 src/node/net/p2p.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/node/net/p2p.ml b/src/node/net/p2p.ml
index d9e71330f..09200f403 100644
--- a/src/node/net/p2p.ml
+++ b/src/node/net/p2p.ml
@@ -188,7 +188,7 @@ module Make (P: PARAMS) = struct
          let len = EndianBigstring.BigEndian.get_uint16 buf 0 in
          (* TODO timeout read ??? *)
          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
          | None ->
              (* TODO track invalid message *)