vif/examples/02-counter/main.ml

#require "vif" ;;
#require "fmt" ;;

let counter = Atomic.make 0 ;;

open Vif ;;

let default req _server () =
  let v = Atomic.fetch_and_add counter 1 in
  let str = Fmt.str "%d request(s)\n" (succ v) in
  let* () = Response.with_string req str in
  Response.respond `OK
;;

let routes =
  let open Vif.U in
  let open Vif.R in
  let open Vif.Content_type in
  [ get (rel /?? nil) --> default ]

let () = Miou_unix.run @@ fun () ->
  Vif.run routes () ;;