diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | libvirt/libvirt.ml | 4 | ||||
-rw-r--r-- | libvirt/libvirt.mli | 4 |
3 files changed, 8 insertions, 4 deletions
@@ -1,5 +1,9 @@ 2008-01-20 Richard Jones <rjones@redhat.com> + 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 <rjones@redhat.com> 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 |