package resto-cohttp-server
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) 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 ]) Result.t
Lwt.t
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>