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