summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard W.M. Jones <rjones@redhat.com>2008-01-20 12:47:11 +0000
committerRichard W.M. Jones <rjones@redhat.com>2008-01-20 12:47:11 +0000
commit8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0 (patch)
tree410e7cf57826c7ecbbec4dc12f574d9fb81ce52b
parent13428961bf2c0c8cf4cf6ef8f63c26b5f68ee23b (diff)
downloadvirt-top-8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0.zip
virt-top-8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0.tar.gz
virt-top-8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0.tar.xz
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.
-rw-r--r--ChangeLog4
-rw-r--r--libvirt/libvirt.ml4
-rw-r--r--libvirt/libvirt.mli4
3 files changed, 8 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index c9d3f73..c03dcd2 100644
--- 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
--- 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