Module Async_extra.Bus.First_arity

type (_, _, _) t =
| Arity1 : ('a ‑> unit, 'a ‑> 'r option, 'rt
| Arity2 : ('a ‑> 'b ‑> unit, 'a ‑> 'b ‑> 'r option, 'rt
| Arity3 : ('a ‑> 'b ‑> 'c ‑> unit, 'a ‑> 'b ‑> 'c ‑> 'r option, 'rt
| Arity4 : ('a ‑> 'b ‑> 'c ‑> 'd ‑> unit, 'a ‑> 'b ‑> 'c ‑> 'd ‑> 'r option, 'rt
include sig ... end
val sexp_of_t : ('v_x__001_ ‑> Sexplib.Sexp.t) ‑> ('v_x__002_ ‑> Sexplib.Sexp.t) ‑> ('v_x__003_ ‑> Sexplib.Sexp.t) ‑> ('v_x__001_'v_x__002_'v_x__003_t ‑> Sexplib.Sexp.t