Source file `request.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
type t =
  { version : Httpaf.Version.t
  ; target : string
  ; headers : Httpaf.Headers.t
  ; meth : Httpaf.Method.t
  ; body : Body.t
  ; env : Context.t
  }

let make
    ?(version = { Httpaf.Version.major = 1; minor = 1 })
    ?(body = Body.empty)
    ?(env = Context.empty)
    ?(headers = Httpaf.Headers.empty)
    target
    meth
  =
  { version; target; headers; meth; body; env }
;;

let get ?version ?body ?env ?headers target =
  make ?version ?body ?env ?headers target `GET
;;

let post ?version ?body ?env ?headers target =
  make ?version ?body ?env ?headers target `POST
;;

let put ?version ?body ?env ?headers target =
  make ?version ?body ?env ?headers target `PUT
;;

let delete ?version ?body ?env ?headers target =
  make ?version ?body ?env ?headers target `DELETE
;;