Lwt_write_error.Infix
val (>>=) : ('a, [< `Disconnected | `Is_read_only | `Msg of 'b | `Unimplemented ]) Result.result Lwt.t -> ('a -> ('c, [> `Disconnected | `Is_read_only | `Msg of 'b | `Unimplemented ] as 'd) Result.result Lwt.t) -> ('c, 'd) Result.result Lwt.t