7 lines
227 B
OCaml
7 lines
227 B
OCaml
#require "vif" ;;
|
|
|
|
exception Foo ;;
|
|
|
|
let () = Printexc.register_printer @@ function Foo -> Some "Foo" | _ -> None ;;
|
|
let default req target server () = raise Foo ;;
|
|
let () = Miou_unix.run @@ fun () -> Vif.run ~default [] () ;;
|