2025-02-08 15:37:56 +00:00
|
|
|
#require "vif" ;;
|
|
|
|
|
|
2025-02-13 16:17:00 +00:00
|
|
|
open Vif ;;
|
|
|
|
|
|
2025-02-08 15:37:56 +00:00
|
|
|
let default req target server () =
|
2025-02-13 16:17:00 +00:00
|
|
|
let* () = Response.with_string ~compression:`DEFLATE req "Hello World!\n" in
|
|
|
|
|
let field = "content-type" in
|
|
|
|
|
let* () = Response.add ~field "text/plain; charset=utf-8" in
|
|
|
|
|
Response.respond `OK
|
2025-02-08 15:37:56 +00:00
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
let () = Miou_unix.run @@ fun () ->
|
|
|
|
|
Vif.run ~default [] () ;;
|
