From 8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Thu, 1 Jan 1970 00:00:00 +0000 Subject: [PATCH] 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. --- ChangeLog | 4 ++++ libvirt/libvirt.ml | 4 ++-- libvirt/libvirt.mli | 4 ++-- 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 + 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 -- 1.8.3.1