Make_client (cohttp-lwt.Cohttp_lwt.Make

Parameters

module IO : IO

module Net : S.Net with module IO = IO

Signature

type ctx = Connection.Make(Net).Net.ctx

type 'a io = 'a Lwt.t

type !'a with_context = ?ctx:ctx -> 'a

type body = Body.t

val map_context : 'a with_context -> ('a -> 'b) -> 'b with_context

val call : 
  (?headers:Http.Header.t ->
    ?body:body ->
    ?chunked:bool ->
    Http.Method.t ->
    Uri.t ->
    (Http.Response.t * body) io)
    with_context

val head : (?headers:Http.Header.t -> Uri.t -> Http.Response.t io) with_context

val get : 
  (?headers:Http.Header.t -> Uri.t -> (Http.Response.t * body) io) with_context

val delete : 
  (?body:body ->
    ?chunked:bool ->
    ?headers:Http.Header.t ->
    Uri.t ->
    (Http.Response.t * body) io)
    with_context

val post : 
  (?body:body ->
    ?chunked:bool ->
    ?headers:Http.Header.t ->
    Uri.t ->
    (Http.Response.t * body) io)
    with_context

val put : 
  (?body:body ->
    ?chunked:bool ->
    ?headers:Http.Header.t ->
    Uri.t ->
    (Http.Response.t * body) io)
    with_context

val patch : 
  (?body:body ->
    ?chunked:bool ->
    ?headers:Http.Header.t ->
    Uri.t ->
    (Http.Response.t * body) io)
    with_context

val set_cache : 
  (?headers:Http.Header.t ->
    ?body:Body.t ->
    Http.Method.t ->
    Uri.t ->
    (Cohttp.Response.t * Body.t) Lwt.t) ->
  unit

val post_form : 
  ?ctx:ctx ->
  ?headers:Http.Header.t ->
  params:(string * string list) list ->
  Uri.t ->
  (Http.Response.t * Body.t) Lwt.t

val callv : 
  ?ctx:ctx ->
  Uri.t ->
  (Http.Request.t * Body.t) Lwt_stream.t ->
  (Http.Response.t * Body.t) Lwt_stream.t Lwt.t