X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=libvirt%2Flibvirt_c_oneoffs.c;fp=libvirt%2Flibvirt_c_oneoffs.c;h=5df783e0d076cdaf631bec540c54e23394d88c3b;hp=a3a7e34b2a162ad8239492df8bf8b7847fe5a2b1;hb=87751781213a1252711b896290a7cc3f07ec0169;hpb=63dfe1865a7a32e39f3811f4ce0ce6d39f7d2dbd;ds=sidebyside

diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c
index a3a7e34..5df783e 100644
--- a/libvirt/libvirt_c_oneoffs.c
+++ b/libvirt/libvirt_c_oneoffs.c
@@ -682,10 +682,11 @@ ocaml_libvirt_storage_pool_get_info (value poolv)
   NONBLOCKING (r = virStoragePoolGetInfo (pool, &info));
   CHECK_ERROR (r == -1, conn, "virStoragePoolGetInfo");
 
-  rv = caml_alloc (3, 0);
+  rv = caml_alloc (4, 0);
   Store_field (rv, 0, Val_int (info.state));
   v = caml_copy_int64 (info.capacity); Store_field (rv, 1, v);
-  v = caml_copy_int64 (info.allocation); Store_field (rv, 1, v);
+  v = caml_copy_int64 (info.allocation); Store_field (rv, 2, v);
+  v = caml_copy_int64 (info.available); Store_field (rv, 3, v);
 
   CAMLreturn (rv);
 #else