simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 11:15:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(fut): fix bug when calling wait_list []

Browse source
This commit is contained in:
Simon Cruanes 2023-06-15 11:58:55 -04:00
parent e43c762c96
commit 446d6635a0
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 28 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/fut.ml
View file

@ -232,8 +232,14 @@ let peek_ok_assert_ (self : 'a t) : 'a =
| _ -> assert false | _ -> assert false
let join_container_ ~iter ~map ~len cont : _ t = let join_container_ ~iter ~map ~len cont : _ t =
let n_items = len cont in
if n_items = 0 then (
(* no items, return now. *)
let cont_empty = map (fun _ -> assert false) cont in
return cont_empty
) else (
let fut, promise = make () in let fut, promise = make () in
let missing = A.make (len cont) in let missing = A.make n_items in
(* callback called when a future in [a] is resolved *) (* callback called when a future in [a] is resolved *)
let on_res = function let on_res = function
@ -255,6 +261,7 @@ let join_container_ ~iter ~map ~len cont : _ t =
iter (fun fut -> on_result fut on_res) cont; iter (fun fut -> on_result fut on_res) cont;
fut fut
)
let join_array (a : _ t array) : _ array t = let join_array (a : _ t array) : _ array t =
match Array.length a with match Array.length a with