X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fdiskimage_lvm2_metadata.ml;h=1043fbbd02c12dd261847172dec84f544476b1f5;hb=f5a7417793b3f0780b0dd49798ea27981f046d98;hp=c5e3f90dd8d7005bffc8c5030fdf5de2b92b9221;hpb=9611aba66734efe3e2f1e0792a90003b657a89f5;p=virt-df.git

diff --git a/lib/diskimage_lvm2_metadata.ml b/lib/diskimage_lvm2_metadata.ml
index c5e3f90..1043fbb 100644
--- a/lib/diskimage_lvm2_metadata.ml
+++ b/lib/diskimage_lvm2_metadata.ml
@@ -26,7 +26,7 @@ and metastmt = string * metavalue
 and metavalue =
   | Metadata of metadata		(* name { ... } *)
   | String of string			(* name = "..." *)
-  | Int of int64
+  | Int of Int63.t
   | Float of float
   | List of metavalue list		(* name = [...] *)
 
@@ -54,7 +54,7 @@ and output_metavalue chan prefix = function
       output_string chan str;
       output_char chan '"';
   | Int i ->
-      output_string chan (Int64.to_string i)
+      output_string chan (Int63.to_string i)
   | Float f ->
       output_string chan (string_of_float f)
   | List [] -> ()