2025-02-01 15:54:10 +00:00
|
|
|
#require "vif" ;;
|
|
|
|
|
#require "fmt" ;;
|
|
|
|
|
|
|
|
|
|
let counter = Atomic.make 0 ;;
|
|
|
|
|
|
|
|
|
|
let default req target server () =
|
|
|
|
|
let v = Atomic.fetch_and_add counter 1 in
|
|
|
|
|
Vif.Response.with_string server `OK (Fmt.str "%d request(s)\n" (succ v))
|
|
|
|
|
;;
|
|
|
|
|
|
2025-02-02 12:29:07 +00:00
|
|
|
let () = Miou_unix.run @@ fun () -> Vif.run ~default [] () ;;
|
