Source file `http_method.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(** HTTP request method *)
type t = [ `DELETE | `GET | `HEAD | `OPTIONS | `PATCH | `POST | `PUT ]

let of_string = function
  | "DELETE" ->
      `DELETE
  | "GET" ->
      `GET
  | "HEAD" ->
      `HEAD
  | "OPTIONS" ->
      `OPTIONS
  | "PATCH" ->
      `PATCH
  | "POST" ->
      `POST
  | "PUT" ->
      `PUT
  | s ->
      failwith ("Invalid request method: " ^ s)

let to_string = function
  | `DELETE ->
      "DELETE"
  | `GET ->
      "GET"
  | `HEAD ->
      "HEAD"
  | `OPTIONS ->
      "OPTIONS"
  | `PATCH ->
      "PATCH"
  | `POST ->
      "POST"
  | `PUT ->
      "PUT"