X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=3e9f172d52c8dec7a6e788482aa20d13cc09ba37;hb=45f3a8981723079a5a020ab9438593531b1d8368;hp=dd60c53dff7e494cd7295a705383dcbc53eac778;hpb=94050e0344685b6916e21581e618ad3e85795008;p=libguestfs.git

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index dd60c53..3e9f172 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -22,7 +22,10 @@
 type t
 exception Error of string
 external create : unit -> t = "ocaml_guestfs_create"
-external close : t -> unit = "ocaml_guestfs_create"
+external close : t -> unit = "ocaml_guestfs_close"
+
+let () =
+  Callback.register_exception "ocaml_guestfs_error" (Error "")
 
 type lvm_pv = {
   pv_name : string;
@@ -99,12 +102,12 @@ external sync : t -> unit = "ocaml_guestfs_sync"
 external touch : t -> string -> unit = "ocaml_guestfs_touch"
 external cat : t -> string -> string = "ocaml_guestfs_cat"
 external ll : t -> string -> string = "ocaml_guestfs_ll"
-external ls : t -> string -> string list = "ocaml_guestfs_ls"
-external list_devices : t -> string list = "ocaml_guestfs_list_devices"
-external list_partitions : t -> string list = "ocaml_guestfs_list_partitions"
-external pvs : t -> string list = "ocaml_guestfs_pvs"
-external vgs : t -> string list = "ocaml_guestfs_vgs"
-external lvs : t -> string list = "ocaml_guestfs_lvs"
-external pvs_full : t -> lvm_pv list = "ocaml_guestfs_pvs_full"
-external vgs_full : t -> lvm_vg list = "ocaml_guestfs_vgs_full"
-external lvs_full : t -> lvm_lv list = "ocaml_guestfs_lvs_full"
+external ls : t -> string -> string array = "ocaml_guestfs_ls"
+external list_devices : t -> string array = "ocaml_guestfs_list_devices"
+external list_partitions : t -> string array = "ocaml_guestfs_list_partitions"
+external pvs : t -> string array = "ocaml_guestfs_pvs"
+external vgs : t -> string array = "ocaml_guestfs_vgs"
+external lvs : t -> string array = "ocaml_guestfs_lvs"
+external pvs_full : t -> lvm_pv array = "ocaml_guestfs_pvs_full"
+external vgs_full : t -> lvm_vg array = "ocaml_guestfs_vgs_full"
+external lvs_full : t -> lvm_lv array = "ocaml_guestfs_lvs_full"