diff options
Diffstat (limited to 'libvirt/libvirt.ml')
| -rw-r--r-- | libvirt/libvirt.ml | 3 |
1 files changed, 3 insertions, 0 deletions
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 () |