package tiny_httpd

  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
open Common_

type t = [ `GET | `PUT | `POST | `HEAD | `DELETE | `OPTIONS ]

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

let pp out s = Format.pp_print_string out (to_string s)

let of_string = function
  | "GET" -> `GET
  | "PUT" -> `PUT
  | "POST" -> `POST
  | "HEAD" -> `HEAD
  | "DELETE" -> `DELETE
  | "OPTIONS" -> `OPTIONS
  | s -> bad_reqf 400 "unknown method %S" s