Source file http_core.ml

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]