Module `Response.Body`

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