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

fut: fix warnings

Browse source
This commit is contained in:
Simon Cruanes 2023-06-24 15:03:37 -04:00
parent ab718b22f9
commit e4b159c695
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/fut.ml
View file

@ -97,7 +97,7 @@ let spawn ~on f : _ t =
fulfill promise res
in
Pool.run on task;
Pool.run_async on task;
fut
let map ?on ~f fut : _ t =
@ -123,7 +123,7 @@ let map ?on ~f fut : _ t =
match on with
| None -> map_and_fulfill ()
| Some on -> Pool.run on map_and_fulfill);
| Some on -> Pool.run_async on map_and_fulfill);
fut2
@ -150,14 +150,14 @@ let bind ?on ~f fut : _ t =
| None -> apply_f_to_res r
| Some on ->
let fut2, promise = make () in
Pool.run on (bind_and_fulfill r promise);
Pool.run_async on (bind_and_fulfill r promise);
fut2)
| None ->
let fut2, promise = make () in
on_result fut (fun r ->
match on with
| None -> bind_and_fulfill r promise ()
| Some on -> Pool.run on (bind_and_fulfill r promise));
| Some on -> Pool.run_async on (bind_and_fulfill r promise));
fut2