git.annexia.org
/
virt-df.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Parses the basic NTFS structures and prints them out.
[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 = "..." *)
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 = [...] *)
| 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 str;
output_char chan '"';
| Int i ->
- output_string chan (Int6
4
.to_string i)
+ output_string chan (Int6
3
.to_string i)
| Float f ->
output_string chan (string_of_float f)
| List [] -> ()
| Float f ->
output_string chan (string_of_float f)
| List [] -> ()