yurt is an HTTP microframework for OCaml based on Cohttp.
opam install yurtopen Yurt
let _ =
let open Server in
(* Create a server *)
server "127.0.0.1" 1234
(* Add a handler *)
>| get "/<name:string>" (fun req params body ->
(* Get the url parameter called `name` *)
let name = Route.string params "name" in
let body = Yurt_html.h1 (Printf.sprintf "Hello %s!\n" name) in
html body)
(* Run it *)
|> runSee example/example.ml for more examples.