Shell/P2p: fix connection close on read error

This commit is contained in:
Grégoire Henry 2017-04-10 00:16:17 +02:00
parent 4537c8780e
commit 4523a67e7d

View File

@ -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"