package devkit

  1. Overview
  2. Docs

Module Devkit_core.Httpev_commonSource

Sourcetype encoding =
  1. | Gzip
  2. | Identity
Sourcetype meth = [
  1. | `GET
  2. | `POST
  3. | `PUT
  4. | `PATCH
  5. | `DELETE
  6. | `HEAD
  7. | `OPTIONS
]
Sourcetype request = {
  1. addr : Unix.sockaddr;
  2. url : string;
  3. path : string;
  4. args : (string * string) list;
  5. conn : Time.t;
  6. recv : Time.t;
  7. meth : meth;
  8. headers : (string * string) list;
  9. body : string;
  10. version : int * int;
  11. id : int;
  12. socket : Unix.file_descr;
  13. line : string;
    (*

    request line

    *)
  14. mutable blocking : unit IO.output option;
  15. encoding : encoding;
}
Sourcetype status_code = [
  1. | `Ok
  2. | `Created
  3. | `Accepted
  4. | `No_content
  5. | `Found
  6. | `Moved
  7. | `Permanent_redirect
  8. | `Bad_request
  9. | `Unauthorized
  10. | `Payment_required
  11. | `Forbidden
  12. | `Not_found
  13. | `Method_not_allowed
  14. | `Not_acceptable
  15. | `Conflict
  16. | `Length_required
  17. | `Request_too_large
  18. | `I'm_a_teapot
  19. | `Unprocessable_content
  20. | `Too_many_requests
  21. | `Internal_server_error
  22. | `Not_implemented
  23. | `Service_unavailable
  24. | `Version_not_supported
]
Sourcetype reply_status = [
  1. | status_code
  2. | `Custom of string
]
Sourcetype extended_reply_status = [
  1. | reply_status
  2. | `No_reply
]
Sourcetype 'status reply' = 'status * (string * string) list * string
Sourceval show_method : [< `DELETE | `GET | `HEAD | `OPTIONS | `PATCH | `POST | `PUT ] -> string
Sourceval method_of_string : string -> [> `DELETE | `GET | `HEAD | `OPTIONS | `PATCH | `POST | `PUT ]
Sourceval show_client_addr : ?via:??? -> request -> string
Sourceval client_addr : request -> Unix.inet_addr * int
Sourceval client_ip : request -> Unix.inet_addr
Sourceval find_header : request -> string -> string
Sourceval header_exn : request -> string -> string
Sourceval header_safe : request -> string -> string
Sourceval header_referer : request -> string
Sourceval show_request : request -> string
Sourceval pairs_of_request : request -> Logger.Pairs.t
Sourceval status_code : reply_status -> int
Sourceval show_http_version : [< `Http_1_0 | `Http_1_1 ] -> string
Sourceval show_status_code : status_code -> string
Sourceval show_http_reply : version:[ `Http_1_0 | `Http_1_1 ] -> reply_status -> string
Sourceval cors_preflight_allow_all : [> `No_content ] * (string * string) list * string