From 8e02ddb1f69c2bd4729e47907240546aeb4ff779 Mon Sep 17 00:00:00 2001
From: Vincent Bernardoff <vb@luminar.eu.org>
Date: Mon, 10 Oct 2016 15:37:33 +0200
Subject: [PATCH] do not crash on exns arising from network input

---
 src/node/net/p2p.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/node/net/p2p.ml b/src/node/net/p2p.ml
index 22ed5dfc0..06c2e5388 100644
--- a/src/node/net/p2p.ml
+++ b/src/node/net/p2p.ml
@@ -406,7 +406,7 @@ let connect_to_peer config limits my_gid socket (addr, port) push white_listed =
     Format.asprintf
       "(%a) connection handler for %a:%d"
       pp_gid my_gid Ipaddr.pp_hum addr port in
-  ignore (worker worker_name connect cancel) ;
+  ignore (worker ~safe:true worker_name ~run:connect ~cancel) ;
   (* return the canceler *)
   cancel