From: Richard W.M. Jones <"Richard W.M. Jones "> Date: Sun, 20 Jan 2008 12:47:11 +0000 (+0000) Subject: Fix Volume.lookup_by_key and Volume.lookup_by_path X-Git-Tag: 1.0.4~48 X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=commitdiff_plain;h=8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0 Fix Volume.lookup_by_key and Volume.lookup_by_path * libvirt/libvirt.mli, libvirt/libvirt.ml: These functions take a connection object, not a pool, as first parameter. --- diff --git a/ChangeLog b/ChangeLog index c9d3f73..c03dcd2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2008-01-20 Richard Jones + Fix Volume.lookup_by_key and Volume.lookup_by_path + * libvirt/libvirt.mli, libvirt/libvirt.ml: These functions take + a connection object, not a pool, as first parameter. + Version 0.4.0.2 released. 2008-01-18 Richard Jones diff --git a/libvirt/libvirt.ml b/libvirt/libvirt.ml index d01db2f..ae37893 100644 --- a/libvirt/libvirt.ml +++ b/libvirt/libvirt.ml @@ -267,8 +267,8 @@ struct } external lookup_by_name : 'a Pool.t -> string -> 'a t = "ocaml_libvirt_storage_vol_lookup_by_name" - external lookup_by_key : 'a Pool.t -> string -> 'a t = "ocaml_libvirt_storage_vol_lookup_by_key" - external lookup_by_path : 'a Pool.t -> string -> 'a t = "ocaml_libvirt_storage_vol_lookup_by_path" + external lookup_by_key : 'a Connect.t -> string -> 'a t = "ocaml_libvirt_storage_vol_lookup_by_key" + external lookup_by_path : 'a Connect.t -> string -> 'a t = "ocaml_libvirt_storage_vol_lookup_by_path" external pool_of_volume : 'a t -> 'a Pool.t = "ocaml_libvirt_storage_pool_lookup_by_volume" external get_name : [`R] t -> string = "ocaml_libvirt_storage_vol_get_name" external get_key : [`R] t -> string = "ocaml_libvirt_storage_vol_get_key" diff --git a/libvirt/libvirt.mli b/libvirt/libvirt.mli index 72917ef..fe9eb40 100644 --- a/libvirt/libvirt.mli +++ b/libvirt/libvirt.mli @@ -716,8 +716,8 @@ sig } val lookup_by_name : 'a Pool.t -> string -> 'a t - val lookup_by_key : 'a Pool.t -> string -> 'a t - val lookup_by_path : 'a Pool.t -> string -> 'a t + val lookup_by_key : 'a Connect.t -> string -> 'a t + val lookup_by_path : 'a Connect.t -> string -> 'a t (** Look up a storage volume by name, key or path volume. *) val pool_of_volume : 'a t -> 'a Pool.t