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

Fut: add Infix_local

Browse source
This commit is contained in:
Simon Cruanes 2023-06-06 23:34:06 -04:00
parent e618739442
commit bd1ada40d4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/fut.ml
View file

@ -329,10 +329,12 @@ end) : INFIX = struct
let ( and* ) = both let ( and* ) = both
end end
include Infix_ (struct module Infix_local = Infix_ (struct
let pool = None let pool = None
end) end)
include Infix_local
module Infix (X : sig module Infix (X : sig
val pool : Pool.t val pool : Pool.t
end) = end) =

4
src/fut.mli
View file

@ -141,8 +141,10 @@ module type INFIX = sig
val ( and* ) : 'a t -> 'b t -> ('a * 'b) t val ( and* ) : 'a t -> 'b t -> ('a * 'b) t
end end
module Infix_local : INFIX
(** Operators that run on the same thread as the first future. *)
include INFIX include INFIX
(** Operators that run on the same thread *)
(** Make infix combinators *) (** Make infix combinators *)
module Infix (_ : sig module Infix (_ : sig