22 lines
445 B
OCaml
22 lines
445 B
OCaml
#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.T in
|
|
[ get (rel /?? nil) --> default ]
|
|
|
|
let () = Miou_unix.run @@ fun () ->
|
|
Vif.run routes () ;;
|