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

P2p: improve cancelation in maintenance

Browse Source
This commit is contained in:
Grégoire Henry 2019-02-20 15:02:01 +01:00
parent 07595c9e1f
commit 359f2d6932
No known key found for this signature in database
GPG Key ID: 50D984F20BD445D2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib_p2p/p2p_maintenance.ml
View File

@ -114,7 +114,9 @@ let rec try_to_contact
else else
List.fold_left List.fold_left
(fun acc point -> (fun acc point ->
P2p_pool.connect pool point >>= function protect ~canceler:st.canceler begin fun () ->
P2p_pool.connect pool point
end >>= function
| Ok _ -> acc >|= succ | Ok _ -> acc >|= succ
| Error _ -> acc) | Error _ -> acc)
(Lwt.return 0) (Lwt.return 0)