From 8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Sun, 20 Jan 2008 12:47:11 +0000 Subject: 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. --- libvirt/libvirt.ml | 4 ++-- libvirt/libvirt.mli | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'libvirt') 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 -- cgit