sig
type 'a t
val create : ('a -> unit) -> 'a Handler.t
val prepend : 'a Handler.t -> f:('b -> 'a) -> 'b Handler.t
val filter : 'a Handler.t -> f:('a -> bool) -> 'a Handler.t
val install : 'a Handler.t -> 'a Deferred.t -> unit -> unit
val schedule : 'a Handler.t -> 'a -> unit
end