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

fix fut: actually run all map/bind callbacks if pool is provided

Browse source
This commit is contained in:
Simon Cruanes 2023-06-12 22:06:18 -04:00
parent c6157ac84d
commit 0177d6aee7
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/fut.ml
View file

@ -120,20 +120,26 @@ let bind ?on ~f fut : _ t =
| Error (e, bt) -> fail e bt
in
let bind_and_fulfill r promise () =
let f_res_fut = apply_f_to_res r in
(* forward result *)
on_result f_res_fut (fun r -> fulfill promise r)
in
match peek fut with
| Some r -> apply_f_to_res r
| Some r ->
(match on with
| None -> apply_f_to_res r
| Some on ->
let fut2, promise = make () in
Pool.run on (bind_and_fulfill r promise);
fut2)
| None ->
let fut2, promise = make () in
on_result fut (fun r ->
let bind_and_fulfill () =
let f_res_fut = apply_f_to_res r in
(* forward result *)
on_result f_res_fut (fun r -> fulfill promise r)
in
match on with
| None -> bind_and_fulfill ()
| Some on -> Pool.run on bind_and_fulfill);
| None -> bind_and_fulfill r promise ()
| Some on -> Pool.run on (bind_and_fulfill r promise));
fut2