type t = | Attempting_to_connect |
| Obtained_address of address |
| Failed_to_connect of Core_kernel.Error.t |
| Connected of conn Core_kernel.sexp_opaque |
| Disconnected |
include sig ... endval sexp_of_t : t ‑> Base.Sexp.tval log_level : t ‑> [ `Info | `Debug | `Error ]