[libvirt] [PATCH] Fix typo in ocaml_libvirt_storage_vol_get_info
The info.capacity was being overwritten with the info.allocation.
Signed-off-by: David Scott <dave.scott(a)eu.citrix.com>
---
libvirt/libvirt_c_oneoffs.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c
index 80e1c03..01985f5 100644
--- a/libvirt/libvirt_c_oneoffs.c
+++ b/libvirt/libvirt_c_oneoffs.c
@@ -1418,7 +1418,7 @@ ocaml_libvirt_storage_vol_get_info (value volv)
rv = caml_alloc (3, 0);
Store_field (rv, 0, Val_int (info.type));
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);
CAMLreturn (rv);
#else
--
1.8.1.2