From 71f683ad53e11c1f0cbc5c250d29647ad5ea0bf3 Mon Sep 17 00:00:00 2001 From: David Scott Date: Wed, 17 Apr 2013 11:23:00 +0100 Subject: [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 --- 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 70cf96f..b1d88cc 100644 --- a/libvirt/libvirt_c_oneoffs.c +++ b/libvirt/libvirt_c_oneoffs.c @@ -945,7 +945,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.3.1