Module EzServerEioUtils.Directory

type 'a directory = {
  1. services : 'a registered_service Dir_types.MethMap.t;
  2. subdirs : 'a static_subdirectories option * 'a variable_subdirectories option;
}
and 'a static_subdirectories = 'a directory EzAPI.StringMap.t
and _ variable_subdirectories =
  1. | Arg : 'a1 EzAPI.Arg.t * ('a * 'a1) directory -> 'a variable_subdirectories
and _ registered_service =
  1. | Http : {
    1. service : ('a, 'i, 'o, 'e, 's) EzAPI.Service.t;
    2. handler : 'a -> 'i -> ('o, 'e) Stdlib.result Answer.t;
    } -> 'a registered_service
  2. | Websocket : {
    1. service : ('a, 'i, 'o, 'e, 's) EzAPI.Service.t;
    2. react : 'a -> 'i -> ('o, 'e) Stdlib.result;
    3. bg : 'a -> (('o, 'e) Stdlib.result -> unit) -> unit;
    4. onclose : ('a -> unit) option;
    5. step : float option;
    } -> 'a registered_service
val empty : 'a directory
type resolved_directory =
  1. | Dir : 'a directory * 'a -> resolved_directory
type lookup_error = [
  1. | `Not_found
  2. | `Cannot_parse of EzAPI.Arg.descr * string * string list
  3. | `Method_not_allowed
]
type handler_error = [
  1. | EzEncoding.destruct_error
  2. | `unsupported of string option
  3. | `handler_exn of exn
  4. | `handler_error of string
]
type ws_frame = [
  1. | `binary of string
  2. | `text of string
  3. | `none
]
type lookup_ok = [
  1. | `head
  2. | `options of (string * string) list
  3. | `http of string -> (string Answer.t, handler_error) Stdlib.result
  4. | `ws of (string -> (ws_frame, handler_error) Stdlib.result) * (((ws_frame, handler_error) Stdlib.result -> unit) -> unit) * (unit -> unit) option * float option
]
val conflict_to_string : Dir_types.conflict -> string
val resolve : 'a. string list -> 'a directory -> 'a -> string list -> (resolved_directory, lookup_error) Stdlib.result
val io_to_answer : 'a. code:int -> headers:(string * string) list -> 'a EzAPI.io -> 'a -> string Answer.t
val ser_handler : 'i 'o 'e. ?content_type:string -> headers:EzAPI.StringSet.t EzAPI.StringMap.t -> ('a -> 'i -> ('o, 'e) Stdlib.result Answer.t) -> 'a -> 'i EzAPI.io -> 'o EzAPI.io -> ('e -> int * string) -> string -> (string Answer.t, handler_error) Stdlib.result
val io_to_ws_frame : 'a. 'a EzAPI.io -> 'a -> ws_frame
val ser_websocket : ('a -> 'b -> ('c, 'd) Stdlib.result) -> ('a -> (('c, 'd) Stdlib.result -> 'e) -> 'f) -> 'a -> 'b EzAPI.IO.io -> 'c EzAPI.io -> 'd Json_encoding.encoding -> (string -> (ws_frame, [> `destruct_exn of exn | `handler_error of string | `handler_exn of exn ]) Stdlib.result) * (((ws_frame, [> `handler_error of string ]) Stdlib.result -> 'e) -> 'f)
val options_headers : 'a directory -> (EzAPI.StringMap.key * string) list option
val lookup : ?meth:[< `DELETE | `GET | `HEAD | `OPTIONS | `PATCH | `POST | `PUT ] -> ?content_type:string -> 'a directory -> 'a -> string list -> (lookup_ok, lookup_error) Stdlib.result
val step_of_path : ('a, 'b) EzAPI.Path.t -> Dir_types.Step.t list
val conflict : ('a, 'b) EzAPI.Path.t -> 'c -> ('d, Dir_types.Step.t list * 'c) Stdlib.result
val insert : 'r 'a. ('r, 'a) EzAPI.Path.t -> 'r directory -> ('a directory * ('a directory -> 'r directory), Dir_types.Step.t list * Dir_types.conflict) Stdlib.result
val register : 'a. t -> ('a, 'b, 'c, 'd, [< EzAPI.Security.scheme ] as 'e) EzAPI.Service.t -> (('a, 'b, 'c, 'd, 'e) EzAPI.Service.t -> 'a registered_service) -> (t, Dir_types.Step.t list * Dir_types.conflict) Stdlib.result
val register_http : t -> ('a, 'b, 'c, 'd, [< EzAPI.Security.scheme ]) EzAPI.Service.t -> ('a -> 'b -> ('c, 'd) Stdlib.result Answer.t) -> (t, Dir_types.Step.t list * Dir_types.conflict) Stdlib.result
val register_ws : t -> ?onclose:('a -> unit) -> ?step:float -> react:('a -> 'b -> ('c, 'd) Stdlib.result) -> bg:('a -> (('c, 'd) Stdlib.result -> unit) -> unit) -> ('a, 'b, 'c, 'd, [< EzAPI.Security.scheme ]) EzAPI.Service.t -> (t, Dir_types.Step.t list * Dir_types.conflict) Stdlib.result