Module Cohttp_lwt.Body

type t = [
  1. | Cohttp.Body.t
  2. | `Stream of string Lwt_stream.t
]
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
include Cohttp.S.Body with type t := t
val empty : t
val of_string : string -> t
val of_string_list : string list -> t
val of_form : ?scheme:string -> (string * string list) list -> t
val map : (string -> string) -> t -> t
val transfer_encoding : t -> Cohttp.Transfer.encoding
val is_empty : t -> bool Lwt.t
val to_string : t -> string Lwt.t
val to_string_list : t -> string list Lwt.t
val to_stream : t -> string Lwt_stream.t
val of_stream : string Lwt_stream.t -> t
val to_form : t -> (string * string list) list Lwt.t
val create_stream : ('a -> Cohttp.Transfer.chunk Lwt.t) -> 'a -> string Lwt_stream.t
val length : t -> (int64 * t) Lwt.t
val write_body : (string -> unit Lwt.t) -> t -> unit Lwt.t
val drain_body : t -> unit Lwt.t