package resto-cohttp-server

  1. Overview
  2. Docs
val invalid_cors : Resto_cohttp.Cors.t -> Cohttp.Header.t -> bool
val invalid_cors_response : string -> Cohttp.Response.t * Cohttp_lwt.Body.t
val handle_error : Cohttp.Header.t -> Media.medias -> [< `Cannot_parse_body of string | `Cannot_parse_path of string list * Resto.Arg.descr * string | `Cannot_parse_query of string | `Method_not_allowed of [< Resto.meth ] list | `Not_acceptable | `Not_found | `Not_implemented | `Unsupported_media_type of 'a ] -> Cohttp.Response.t * Cohttp_lwt.Body.t
val handle_rpc_answer : string -> ?headers:Cohttp.Header.t -> ('o -> string) -> [< `Created of string option | `No_content | `Ok of 'o ] -> Cohttp_lwt_unix.Response.t * Cohttp_lwt.Body.t
val handle_rpc_answer_error : string -> ?headers:Cohttp.Header.t -> ('e -> Cohttp_lwt.Body.t * Cohttp.Transfer.encoding) -> [< `Conflict of 'e | `Error of 'e | `Forbidden of 'e | `Gone of 'e | `Not_found of 'e | `Unauthorized of 'e ] -> Cohttp_lwt_unix.Response.t * Cohttp_lwt.Body.t
val handle_rpc_answer_chunk : ?headers:Cohttp.Header.t -> ('o -> (bytes * int * int) Stdlib.Seq.t) -> [< `OkChunk of 'o ] -> Cohttp_lwt_unix.Response.t * ('d Lwt_io.channel -> Lwt_io.output_channel -> unit Lwt.t)
val handle_options : unit Directory.t -> Resto_cohttp.Cors.t -> Cohttp.Header.t -> string list -> (Cohttp.Response.t * Cohttp_lwt.Body.t, [> Directory.lookup_error ]) Stdlib.Result.t Lwt.t