async_durable

Durable connections for use with async
IN THIS PACKAGE
type ('state, 'update, 'error, 'metadata) t =
| Attempting_new_connection
| Connection_success of 'metadata
| Lost_connection
| Failed_to_connect of Core.Error.t
| Rpc_error of 'error
| Update of 'update
| State of 'state
val sexp_of_t : ( 'state -> Sexplib0.Sexp.t ) -> ( 'update -> Sexplib0.Sexp.t ) -> ( 'error -> Sexplib0.Sexp.t ) -> ( 'metadata -> Sexplib0.Sexp.t ) -> ( 'state, 'update, 'error, 'metadata ) t -> Sexplib0.Sexp.t