Node: catch correct P2P exn

This commit is contained in:
Vincent Bernardoff 2016-12-09 18:18:59 +01:00
parent 5c428a5ea3
commit 01fe34bc4b

View File

@ -255,7 +255,7 @@ let create
Lwt.catch
worker_loop
(function
| Lwt_stream.Empty -> cleanup ()
| Queue.Empty -> cleanup ()
| exn ->
lwt_log_error "unexpected exception in worker\n%s"
(Printexc.to_string exn) >>= fun () ->