22 lines
318 B
OCaml
22 lines
318 B
OCaml
type t =
|
|
| Connect
|
|
| Delete
|
|
| Get
|
|
| Head
|
|
| Options
|
|
| Post
|
|
| Put
|
|
| Trace
|
|
| Other of string
|
|
|
|
let of_httpcats = function
|
|
| `CONNECT -> Connect
|
|
| `DELETE -> Delete
|
|
| `GET -> Get
|
|
| `HEAD -> Head
|
|
| `OPTIONS -> Options
|
|
| `POST -> Post
|
|
| `PUT -> Put
|
|
| `TRACE -> Trace
|
|
| `Other s -> Other s
|