Module Body.Private

val write_body : ('a -> Base.string -> Base.unit Async_kernel.Deferred.t) -> t -> 'a -> Base.unit Async_kernel.Deferred.t
val pipe_of_body : ('a -> Cohttp.Transfer.chunk Async_kernel.Deferred.t) -> 'a -> Base.string Async_kernel.Pipe.Reader.t
val disable_chunked_encoding : t -> (t * Base.int64) Async_kernel.Deferred.t
val drain : t -> Base.unit Async_kernel.Deferred.t