From 8944bf149e66096d78f8b229da79362ba3eec3ef Mon Sep 17 00:00:00 2001 From: Pino Toscano Date: Thu, 30 Aug 2018 12:13:42 +0200 Subject: [PATCH] Register a custom exception printer This way all the users of ocaml-libvirt can use Printexc.to_string to print a Virterror exception, even in case they do not catch it explicitly. --- libvirt/libvirt.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/libvirt/libvirt.ml b/libvirt/libvirt.ml index 8049f42..c03032f 100644 --- a/libvirt/libvirt.ml +++ b/libvirt/libvirt.ml @@ -1616,4 +1616,9 @@ let () = "ocaml_libvirt_virterror" (Virterror (Virterror.no_error ())); Callback.register_exception "ocaml_libvirt_not_supported" (Not_supported ""); - c_init () + c_init (); + Printexc.register_printer ( + function + | Virterror e -> Some (Virterror.to_string e) + | _ -> None + ) -- 1.8.3.1