Module Bus.Read_only

type 'callback t = ('callback, Core.read) bus
val sexp_of_t : ('callback -> Sexplib0.Sexp.t) -> 'callback t -> Sexplib0.Sexp.t
include Core.Invariant.S1 with type 'a t := 'a t
val invariant : ('a -> unit) -> 'a t -> unit