2025-02-01 15:54:10 +00:00
|
|
|
#require "vif" ;;
|
|
|
|
|
|
2025-02-02 12:29:07 +00:00
|
|
|
exception Foo ;;
|
2025-02-01 15:54:10 +00:00
|
|
|
|
2025-02-18 18:25:30 +00:00
|
|
|
let () = Printexc.register_printer @@ function
|
|
|
|
|
| Foo -> Some "Foo"
|
|
|
|
|
| _ -> None ;;
|
|
|
|
|
|
|
|
|
|
let default req server () = raise Foo ;;
|
|
|
|
|
|
|
|
|
|
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 ()
|
|
|
|
|
;;
|
