2019-12-12 11:36:58 +01:00
|
|
|
type 'a monoid = 'a * ('a -> 'a -> 'a)
|
|
|
|
val lift_monoid : 'a monoid -> 'a Lwd.t monoid
|
|
|
|
|
|
|
|
val pack : 'a monoid -> 'a Lwd.t list -> 'a Lwd.t
|
|
|
|
val pack_seq : 'a monoid -> 'a Lwd.t Seq.t -> 'a Lwd.t
|
|
|
|
val pure_pack : 'a monoid -> 'a list -> 'a
|
|
|
|
|
2020-01-08 17:58:01 +01:00
|
|
|
val local_state : ('a Lwd.t -> ('a -> unit) -> 'a * 'b) -> 'b
|