type 'a handler = 'a -> unittype ('a, 'b) handler2 = 'a -> 'b -> unittype unsubscribe = unit -> unit
val dispatch : 'a -> 'a handler list Stdlib.ref -> unitval dispatch2 : 'a -> 'b -> ('a, 'b) handler2 list Stdlib.ref -> unitval add : 'a handler -> 'a handler list Stdlib.ref -> unit -> unitval add2 : ('a, 'b) handler2 -> ('a, 'b) handler2 list Stdlib.ref -> unit -> unit