Commit 359f2d69 authored by Grégoire Henry's avatar Grégoire Henry

P2p: improve cancelation in maintenance

parent 07595c9e
......@@ -114,7 +114,9 @@ let rec try_to_contact
else
List.fold_left
(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
| Error _ -> acc)
(Lwt.return 0)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment