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 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 (file)
--- 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 (file)
--- 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