balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

P2p: improve logging level in P2p_maintenance

Browse Source
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib_p2p/p2p_maintenance.ml
View File

@ -172,7 +172,7 @@ and too_many_connections st n_connected =
let Pool pool = st.pool in let Pool pool = st.pool in
(* too many connections, start the russian roulette *) (* too many connections, start the russian roulette *)
let to_kill = n_connected - st.bounds.max_target in 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 snd @@ P2p_pool.Connection.fold pool
~init:(to_kill, Lwt.return_unit) ~init:(to_kill, Lwt.return_unit)
~f:(fun _ conn (i, t) -> ~f:(fun _ conn (i, t) ->