package sonet

  1. Overview
  2. Docs
type header_fields = (string * string list) list
val add_header : string -> string -> header_fields -> header_fields
val is_header_present : string -> header_fields -> bool
val lookup_header : string -> header_fields -> string list
type version =
  1. | HTTP09
  2. | HTTP10
  3. | HTTP11
val string_of_version : version -> string
type meth =
  1. | Get
  2. | Put
  3. | Head
  4. | Post
  5. | Trace
  6. | Delete
  7. | Connect
  8. | Options
  9. | Extension of string
val string_of_meth : meth -> string
type status =
  1. | Status_continue
  2. | Status_switching_protocols
  3. | Status_ok
  4. | Status_created
  5. | Status_accepted
  6. | Status_non_authoritative
  7. | Status_no_content
  8. | Status_reset_content
  9. | Status_partial_content
  10. | Status_multiple_choices
  11. | Status_moved_permanently
  12. | Status_found
  13. | Status_see_other
  14. | Status_not_modified
  15. | Status_use_proxy
  16. | Status_temporary_redirect
  17. | Status_bad_request
  18. | Status_unauthorized
  19. | Status_payment_required
  20. | Status_forbidden
  21. | Status_not_found
  22. | Status_method_not_allowed
  23. | Status_not_acceptable
  24. | Status_proxy_authentication_required
  25. | Status_request_timeout
  26. | Status_conflict
  27. | Status_gone
  28. | Status_length_required
  29. | Status_precondition_failed
  30. | Status_request_entity_too_large
  31. | Status_request_uri_too_large
  32. | Status_unsupported_media_type
  33. | Status_requested_range_not_satisfiable
  34. | Status_expectation_failed
  35. | Status_internal_server_error
  36. | Status_not_implemented
  37. | Status_bad_gateway
  38. | Status_service_unavailable
  39. | Status_gateway_timeout
  40. | Status_version_not_supported
  41. | Status_other of int * string
val status_info : status -> int * string
module Headers : sig ... end
module Request_header : sig ... end
module Response_header : sig ... end
type payload_callback = string -> int -> int -> bool -> unit
module Payload : sig ... end
module Request : sig ... end
module Response : sig ... end