P2p: better logging on read timeout.

This commit is contained in:
Grégoire Henry 2017-11-08 14:51:52 +01:00 committed by Benjamin Canou
parent dad0793353
commit 0e2a751408

View File

@ -117,7 +117,8 @@ module Scheduler(IO : IO) = struct
worker_loop st worker_loop st
| Error ([Connection_closed | | Error ([Connection_closed |
Exn ( Lwt_pipe.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)" lwt_debug "Connection closed (pop: %d, %s)"
conn.id IO.name >>= fun () -> conn.id IO.name >>= fun () ->
cancel conn err >>= fun () -> cancel conn err >>= fun () ->