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

P2p: fix in P2p_maintenance

Browse Source
This commit is contained in:
Grégoire Henry 2017-01-23 11:09:59 +01:00
parent c87e88d84d
commit 5ee3581d60
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/node/net/p2p_maintenance.ml
View File

@ -79,6 +79,7 @@ let rec try_to_contact
let contactable = let contactable =
connectable st start_time max_to_contact in connectable st start_time max_to_contact in
if contactable = [] then if contactable = [] then
Lwt_unix.yield () >>= fun () ->
Lwt.return_false Lwt.return_false
else else
List.fold_left List.fold_left
@ -111,11 +112,11 @@ let rec maintain st =
and too_few_connections st n_connected = and too_few_connections st n_connected =
let Pool pool = st.pool in let Pool pool = st.pool in
(* too few connections, try and contact many peers *) (* too few connections, try and contact many peers *)
lwt_debug "Too few connections (%d)" n_connected >>= fun () -> lwt_log_notice "Too few connections (%d)" n_connected >>= fun () ->
let min_to_contact = st.bounds.min_target - n_connected in let min_to_contact = st.bounds.min_target - n_connected in
let max_to_contact = st.bounds.max_target - n_connected in let max_to_contact = st.bounds.max_target - n_connected in
try_to_contact st min_to_contact max_to_contact >>= fun continue -> try_to_contact st min_to_contact max_to_contact >>= fun success ->
if not continue then begin if success then begin
maintain st maintain st
end else begin end else begin
(* not enough contacts, ask the pals of our pals, (* not enough contacts, ask the pals of our pals,