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

small api change in future

Browse source
This commit is contained in:
Simon Cruanes 2013-03-24 17:57:02 +01:00
parent b4e07e07d2
commit d74808efe0
2 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
future.ml
View file

@ -524,3 +524,5 @@ module Infix = struct
let (>>=) x f = flatMap f x let (>>=) x f = flatMap f x
let (>>) a f = andThen a f let (>>) a f = andThen a f
end end
include Infix

5
future.mli
View file

@ -142,7 +142,12 @@ val spawn_process : ?pool:Pool.t -> ?stdin:string -> cmd:string ->
val sleep : ?pool:Pool.t -> float -> unit t val sleep : ?pool:Pool.t -> float -> unit t
(** Future that returns with success in the given amount of seconds *) (** Future that returns with success in the given amount of seconds *)
module Infix : sig module Infix : sig
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
val (>>) : 'a t -> (unit -> 'b t) -> 'b t val (>>) : 'a t -> (unit -> 'b t) -> 'b t
end end
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
val (>>) : 'a t -> (unit -> 'b t) -> 'b t