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

add Fut.is_done

Browse source
This commit is contained in:
Simon Cruanes 2023-06-15 10:24:20 -04:00
parent f18ed688e9
commit f76b713556
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/fut.ml
View file

@ -28,6 +28,11 @@ let[@inline] peek self : _ option =
| Done x -> Some x | Done x -> Some x
| Waiting _ -> None | Waiting _ -> None
let[@inline] is_done self : bool =
match A.get self.st with
| Done _ -> true
| Waiting _ -> false
exception Not_ready exception Not_ready
let[@inline] get_or_fail self = let[@inline] get_or_fail self =

4
src/fut.mli
View file

@ -75,6 +75,10 @@ val get_or_fail_exn : 'a t -> 'a
@raise Not_ready if the future is not ready. @raise Not_ready if the future is not ready.
@since 0.2 *) @since 0.2 *)
val is_done : _ t -> bool
(** Is the future resolved? This is the same as [peek fut |> Option.is_some].
@since 0.2 *)
(** {2 Combinators} *) (** {2 Combinators} *)
val spawn : on:Pool.t -> (unit -> 'a) -> 'a t val spawn : on:Pool.t -> (unit -> 'a) -> 'a t