package ez_api

  1. Overview
  2. Docs

Source file meth.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type empty = [ `OPTIONS | `HEAD ]
type t = [ `GET | `POST | `PUT | `DELETE | `PATCH ]
type all = [ t | empty ]

let to_string : [< all ] -> string = function
  | `GET -> "get"
  | `POST -> "post"
  | `PUT -> "put"
  | `DELETE -> "delete"
  | `PATCH -> "patch"
  | `OPTIONS -> "options"
  | `HEAD -> "head"

let headers l =
  let meths = String.concat "," @@ List.map to_string l in
  [ "access-control-allow-methods", meths ]