lib/version.ml at main · anil.recoil.org/httpzo

An OCaml webserver, but the allocating version (vs httpz which doesnt)

httpzo / lib / version.ml

at main 12 lines 212 B view raw

wrap content

 1(* version.ml - HTTP version *)
 2
 3type t =
 4  | Http_1_0
 5  | Http_1_1
 6
 7let to_string = function
 8  | Http_1_0 -> "HTTP/1.0"
 9  | Http_1_1 -> "HTTP/1.1"
10;;
11
12let pp fmt t = Stdlib.Format.fprintf fmt "%s" (to_string t)