package ez_api

You can search for identifiers within the package.

in-package search v0.2.0

Easy API library and tools

Install

Dune Dependency

github.com Readme Changelog LGPL-2.1-only License Edit opam file Versions (6)

Authors

Maintainers

F

Fabrice Le Fessant <fabrice.le_fessant@ocamlpro.com>

Sources

2.1.0.tar.gz

md5=e1d03d141ef977fbd4521256c91431f1

sha512=51b0cc4e6afb0cd5ab55c0c40964946b79e0c2cc903b5d08c594292eec723a25e25463175d704c02fe559e2af5d95973514c248a603ad28ec0230c35ad2d6492

doc/ez_api.server/EzAPIServer/index.html

Module `EzAPIServer`Source

include module type of struct include EzServer end

val server : 
  ?catch:(string -> exn -> string EzAPIServerUtils.Answer.t Lwt.t) ->
  (int * EzAPIServerUtils.server_kind) list ->
  unit Lwt.t

val set_debug : unit -> unit

include module type of struct include EzAPIServerUtils end

module StringMap = EzAPIServerUtils.StringMap

module Timings = EzAPIServerUtils.Timings

module Directory = EzAPIServerUtils.Directory

module Answer = EzAPIServerUtils.Answer

module Req = EzAPIServerUtils.Req

module File = EzAPIServerUtils.File

module GMTime = EzAPIServerUtils.GMTime

module Ip = EzAPIServerUtils.Ip

Server

type server_kind = EzAPIServerUtils.server_kind =

| API of Directory.t
| Root of string * string option

type server = EzAPIServerUtils.server = {

server_port : int;
server_kind : server_kind;

}

Utils

val return : 
  ?code:int ->
  ?headers:(string * string) list ->
  'a ->
  'a Answer.t Lwt.t

val return_ok : 
  ?code:int ->
  ?headers:(string * string) list ->
  'a ->
  ('a, 'b) result Answer.t Lwt.t

val return_error : 
  ?content:'a ->
  ?headers:(string * string) list ->
  int ->
  ('b, 'a option) result Answer.t Lwt.t

val verbose : int ref

val set_verbose : int -> unit

val pp_time : unit -> string

val debug : ?v:int -> ('a, unit, string, unit) format4 -> 'a

val debugf : ?v:int -> (unit -> unit) -> unit

Register Handler

val empty : 'a Directory.directory

val register_res : 
  ('a, 'b, 'c, 'd, [< EzAPI.Security.scheme ] as 'e) EzAPI.service ->
  ('a -> 'e list -> 'b -> ('c, 'd) result EzAPIServerUtils.Answer.t Lwt.t) ->
  Directory.t ->
  (Directory.t, Directory.Step.t list * Directory.conflict) result

val register_ws_res : 
  ('a, 'b, 'c, 'd, [< EzAPI.Security.scheme ] as 'e) EzAPI.service ->
  react:('a -> 'e list -> 'b -> ('c, 'd) result Lwt.t) ->
  bg:('a -> 'e list -> (('c, 'd) result -> unit) -> unit Lwt.t) ->
  ?onclose:('a -> unit Lwt.t) ->
  ?step:float ->
  Directory.t ->
  (Directory.t, Directory.Step.t list * Directory.conflict) result

exception Conflict of Directory.Step.t list * Directory.conflict

val register : 
  ('a, 'b, 'c, 'd, [< EzAPI.Security.scheme ] as 'e) EzAPI.service ->
  ('a -> 'e list -> 'b -> ('c, 'd) result EzAPIServerUtils.Answer.t Lwt.t) ->
  Directory.t ->
  Directory.t

val register_ws : 
  ('a, 'b, 'c, 'd, [< EzAPI.Security.scheme ] as 'e) EzAPI.service ->
  ?onclose:('a -> unit Lwt.t) ->
  ?step:float ->
  react:('a -> 'e list -> 'b -> ('c, 'd) result Lwt.t) ->
  bg:('a -> 'e list -> (('c, 'd) result -> unit) -> unit Lwt.t) ->
  Directory.t ->
  Directory.t

module Legacy = EzAPIServerUtils.Legacy

val handle : 
  ?meth:
    [< `DELETE | `GET | `HEAD | `OPTIONS | `PATCH | `POST | `PUT GET OPTIONS ] ->
  ?content_type:string ->
  ?ws:
    (?onclose:(unit -> unit Lwt.t) ->
      ?step:float ->
      react:
        (string -> (Directory.ws_frame, Directory.handler_error) result Lwt.t) ->
      bg:
        (((Directory.ws_frame, Directory.handler_error) result -> unit) ->
          unit Lwt.t) ->
      Uuidm.t ->
      'a Lwt.t) ->
  server_kind ->
  Req.t ->
  string list ->
  string ->
  [> `http of string EzAPIServerUtils.Answer.t | `ws of 'a ] Lwt.t

val default_access_control_headers : (string * string) list

val merge_headers_with_default : 
  (string * string) list ->
  (string * string) list