Updated this file with new <^< operator, should probably delete it.

[virt-df.git] / lib / diskimage_lvm2_metadata.ml

diff --git a/lib/diskimage_lvm2_metadata.ml b/lib/diskimage_lvm2_metadata.ml
index c5e3f90..1043fbb 100644 (file)
--- 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 [] -> ()