X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=libvirt%2Flibvirt.ml;h=65828740e96fe4250c4bcee2f04dcf37939cc9e4;hp=69e1c0db2a73685a435e0e9c91d01cd3c2832fc6;hb=a8e571097acd0624c6803c878d09c930055cfd39;hpb=38e7a75efaab8a6a709cbad8342bca4a45ead8cc

diff --git a/libvirt/libvirt.ml b/libvirt/libvirt.ml
index 69e1c0d..6582874 100644
--- a/libvirt/libvirt.ml
+++ b/libvirt/libvirt.ml
@@ -401,10 +401,13 @@ struct
 end
 
 exception Virterror of Virterror.t
+exception Not_supported of string
 
 (* Initialization. *)
 external c_init : unit -> unit = "ocaml_libvirt_init"
 let () =
   Callback.register_exception
     "ocaml_libvirt_virterror" (Virterror (Virterror.no_error ()));
+  Callback.register_exception
+    "ocaml_libvirt_not_supported" (Not_supported "");
   c_init ()