Module Mvar


module Mvar: sig .. end

type 'a t 
val make : unit -> 'a t
val init_make : 'a -> 'a t
val read : 'a t -> 'a Event.event
val take : 'a t -> 'a Event.event
val put : 'a t -> 'a -> unit Event.event
val replace : 'a t -> ('a -> 'a) -> unit Event.event