resto-cohttp-client 0.2 · OCaml Package

Parameters

module Encoding : Resto.ENCODING

module Client : Cohttp_lwt.S.Client

Signature

module Service : module type of struct include Resto.MakeService(Encoding) end

type content_type = string * string

type raw_content = Cohttp_lwt.Body.t * content_type option

type content =
  Cohttp_lwt.Body.t
  * content_type option
  * Resto_cohttp.Media_type.Make(Encoding).t option

type ('o, 'e) generic_rest_result = [

| `Ok of 'o option
| `Conflict of 'e
| `Error of 'e
| `Forbidden of 'e
| `Not_found of 'e
| `Unauthorized of 'e
| `Bad_request of string
| `Method_not_allowed of string list
| `Unsupported_media_type
| `Not_acceptable of string
| `Unexpected_status_code of Cohttp.Code.status_code * content
| `Connection_failed of string
| `OCaml_exception of string
| `Unauthorized_host of string option

]

module type LOGGER = sig ... end

type logger = (module LOGGER)

val null_logger : logger

val timings_logger : Format.formatter -> logger

val full_logger : Format.formatter -> logger

val generic_call : 
  [< Resto.meth ] ->
  ?headers:(string * string) list ->
  ?accept:Resto_cohttp.Media_type.Make(Encoding).t list ->
  ?body:Cohttp_lwt.Body.t ->
  ?media:Resto_cohttp.Media_type.Make(Encoding).t ->
  Uri.t ->
  (content, content) generic_rest_result Lwt.t

type ('o, 'e) service_result = [

| ('o, 'e option) generic_rest_result
| `Unexpected_content_type of raw_content
| `Unexpected_content of (string * Resto_cohttp.Media_type.Make(Encoding).t) * string
| `Unexpected_error_content_type of raw_content
| `Unexpected_error_content of (string * Resto_cohttp.Media_type.Make(Encoding).t) * string

]

val call_service : 
  Resto_cohttp.Media_type.Make(Encoding).t list ->
  ?logger:logger ->
  ?headers:(string * string) list ->
  ?base:Uri.t ->
  ([< Resto.meth ], unit, 'p, 'q, 'i, 'o, 'e) Service.t ->
  'p ->
  'q ->
  'i ->
  (Resto.meth * Uri.t * ('o, 'e) service_result) Lwt.t

val call_streamed_service : 
  Resto_cohttp.Media_type.Make(Encoding).t list ->
  ?logger:logger ->
  ?headers:(string * string) list ->
  ?base:Uri.t ->
  ([< Resto.meth ], unit, 'p, 'q, 'i, 'o, 'e) Service.t ->
  on_chunk:('o -> unit) ->
  on_close:(unit -> unit) ->
  'p ->
  'q ->
  'i ->
  (Resto.meth * Uri.t * (unit -> unit, 'e) service_result) Lwt.t

package resto-cohttp-client

Parameters

Signature