From 3a4d523e09e185f9db6ff76241d5b11b08a7ad62 Mon Sep 17 00:00:00 2001 From: OCamlPro-Iguernlala Date: Thu, 19 Jul 2018 12:34:57 +0200 Subject: [PATCH] P2p: improve logging level in `P2p_maintenance` --- src/lib_p2p/p2p_maintenance.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib_p2p/p2p_maintenance.ml b/src/lib_p2p/p2p_maintenance.ml index 52a855bad..6e1155b28 100644 --- a/src/lib_p2p/p2p_maintenance.ml +++ b/src/lib_p2p/p2p_maintenance.ml @@ -172,7 +172,7 @@ and too_many_connections st n_connected = let Pool pool = st.pool in (* too many connections, start the russian roulette *) let to_kill = n_connected - st.bounds.max_target in - lwt_debug "Too many connections, will kill %d" to_kill >>= fun () -> + lwt_log_notice "Too many connections, will kill %d" to_kill >>= fun () -> snd @@ P2p_pool.Connection.fold pool ~init:(to_kill, Lwt.return_unit) ~f:(fun _ conn (i, t) ->