package http_async

  1. Overview
  2. Docs

Source file meth.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
37
38
39
40
41
42
43
44
45
46
open Core

module T = struct
  type t =
    [ (* https://datatracker.ietf.org/doc/html/rfc7231#section-4.3 *)
      `GET
    | `HEAD
    | `POST
    | `PUT
    | `DELETE
    | `CONNECT
    | `OPTIONS
    | `TRACE
    | (* https://datatracker.ietf.org/doc/html/rfc5789 *)
      `PATCH
    ]
  [@@deriving sexp, compare, hash, enumerate]
end

include T
include Comparable.Make (T)

let of_string = function
  | "GET" -> Some `GET
  | "HEAD" -> Some `HEAD
  | "POST" -> Some `POST
  | "PUT" -> Some `PUT
  | "DELETE" -> Some `DELETE
  | "CONNECT" -> Some `CONNECT
  | "OPTIONS" -> Some `OPTIONS
  | "TRACE" -> Some `TRACE
  | "PATCH" -> Some `PATCH
  | _ -> None
;;

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