From 0e2a751408a25e2fbb2b24d901026c9c2a3c18d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= <gregoire.henry@ocamlpro.com>
Date: Wed, 8 Nov 2017 14:51:52 +0100
Subject: [PATCH] P2p: better logging on read timeout.

---
 src/node/net/p2p_io_scheduler.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/node/net/p2p_io_scheduler.ml b/src/node/net/p2p_io_scheduler.ml
index c816204a7..ee4d89c12 100644
--- a/src/node/net/p2p_io_scheduler.ml
+++ b/src/node/net/p2p_io_scheduler.ml
@@ -117,7 +117,8 @@ module Scheduler(IO : IO) = struct
           worker_loop st
       | Error ([Connection_closed |
                 Exn ( Lwt_pipe.Closed |
-                      Unix.Unix_error (EBADF, _, _) )] as err) ->
+                      Unix.Unix_error ((EBADF | ETIMEDOUT), _, _) )]
+               as err) ->
           lwt_debug "Connection closed (pop: %d, %s)"
             conn.id IO.name >>= fun () ->
           cancel conn err >>= fun () ->