Source file `http_core.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
exception Exception of string

type content_type =
  | Html
  | Json
  | Pdf
[@@deriving show, eq]

let show_content_type = function
  | Html -> "text/html"
  | Json -> "application/json"
  | Pdf -> "application/pdf"
;;

type header = string * string [@@deriving show, eq]
type headers = header list [@@deriving show, eq]