From: David Scott <scott.dj@gmail.com>
Date: Wed, 17 Apr 2013 10:23:00 +0000 (+0100)
Subject: Fix typo in ocaml_libvirt_storage_vol_get_info
X-Git-Tag: 0.6.1.3~6
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=71f683ad53e11c1f0cbc5c250d29647ad5ea0bf3;p=ocaml-libvirt.git

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@eu.citrix.com>
---

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