Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module Response.Body

module Body : sig..end

type t
val empty : t
val of_string : string -> t
val make : 
  Cohttp.Transfer.encoding ->
  ((string -> unit Lwt.t) -> unit Lwt.t) -> t

make writer makes a reponse body whose content is generated by writer write. write str blocks until str is fully written.

val of_cohttp : 
  encoding:Cohttp.Transfer.encoding ->
  Cohttp_lwt.Body.t -> t
val write : t -> (string -> unit Lwt.t) -> unit Lwt.t
val transfer_encoding : t -> Cohttp.Transfer.encoding