package chatoyant

  1. Overview
  2. Docs

Parameter Make_client.Http

type multipart_part = {
  1. name : string;
  2. filename : string option;
  3. content_type : string option;
  4. body : string;
}
type body =
  1. | Empty
  2. | Text of string
  3. | Json of Chatoyant_runtime.Json.t
  4. | Multipart of multipart_part list
type request = {
  1. method_ : string;
  2. url : string;
  3. headers : (string * string) list;
  4. body : body;
  5. timeout_ms : int option;
}
type response = {
  1. status : int;
  2. headers : (string * string) list;
  3. body : string;
}
type error =
  1. | Timeout of int
  2. | Network of string
  3. | Invalid_response of string
val send : request -> (response, error) result