vif/examples/03-fail/main.ml

#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 [] () ;;
Add few examples about vif 2025-02-01 15:54:10 +00:00			`#require "vif" ;;`

Add caqti example 2025-02-02 12:29:07 +00:00			`exception Foo ;;`
Add few examples about vif 2025-02-01 15:54:10 +00:00
Add caqti example 2025-02-02 12:29:07 +00:00			`let () = Printexc.register_printer @@ function Foo -> Some "Foo" \| _ -> None ;;`
Add few examples about vif 2025-02-01 15:54:10 +00:00			`let default req target server () = raise Foo ;;`
Add caqti example 2025-02-02 12:29:07 +00:00			`let () = Miou_unix.run @@ fun () -> Vif.run ~default [] () ;;`