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 Lwt.catch
worker_loop worker_loop
(function (function
| Lwt_stream.Empty -> cleanup () | Queue.Empty -> cleanup ()
| exn -> | exn ->
lwt_log_error "unexpected exception in worker\n%s" lwt_log_error "unexpected exception in worker\n%s"
(Printexc.to_string exn) >>= fun () -> (Printexc.to_string exn) >>= fun () ->