From 4523a67e7d18272d3a233fcc7757b8c86625fe24 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= <gregoire.henry@ocamlpro.com>
Date: Mon, 10 Apr 2017 00:16:17 +0200
Subject: [PATCH] Shell/P2p: fix connection close on read error

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

diff --git a/src/node/net/p2p_connection.ml b/src/node/net/p2p_connection.ml
index 26ba918db..b00c7619b 100644
--- a/src/node/net/p2p_connection.ml
+++ b/src/node/net/p2p_connection.ml
@@ -248,6 +248,7 @@ module Reader = struct
     | Ok true ->
         worker_loop st
     | Ok false ->
+        Canceler.cancel st.canceler >>= fun () ->
         Lwt.return_unit
     | Error [Lwt_utils.Canceled | Exn Lwt_pipe.Closed] ->
       lwt_debug "connection closed to %a"