X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=libvirt%2Flibvirt.ml;h=ae378936743f2b652309b6631f3e3915f38d8a8d;hb=8f0f6bf5ad24e6b8a92533efa9b35d9850cfccc0;hp=d01db2f8566cfdb8812f6ac7b6cd01dd1cb9294b;hpb=13428961bf2c0c8cf4cf6ef8f63c26b5f68ee23b;p=virt-top.git

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"