P2p: improve logging level in P2p_maintenance

This commit is contained in:
OCamlPro-Iguernlala 2018-07-19 12:34:57 +02:00 committed by Grégoire Henry
parent 78f22f4fdd
commit 3a4d523e09
No known key found for this signature in database
GPG Key ID: 827A020B224844F1

View File

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