simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2026-01-27 19:54:50 -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 fulfill promise res
in in
Pool.run on task; Pool.run_async on task;
fut fut
let map ?on ~f fut : _ t = let map ?on ~f fut : _ t =
@ -123,7 +123,7 @@ let map ?on ~f fut : _ t =
match on with match on with
| None -> map_and_fulfill () | None -> map_and_fulfill ()
| Some on -> Pool.run on map_and_fulfill); | Some on -> Pool.run_async on map_and_fulfill);
fut2 fut2
@ -150,14 +150,14 @@ let bind ?on ~f fut : _ t =
| None -> apply_f_to_res r | None -> apply_f_to_res r
| Some on -> | Some on ->
let fut2, promise = make () in let fut2, promise = make () in
Pool.run on (bind_and_fulfill r promise); Pool.run_async on (bind_and_fulfill r promise);
fut2) fut2)
| None -> | None ->
let fut2, promise = make () in let fut2, promise = make () in
on_result fut (fun r -> on_result fut (fun r ->
match on with match on with
| None -> bind_and_fulfill r promise () | 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 fut2