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
Restructure library for dealing with block mappings.
[virt-df.git]
/
virt-df
/
virt_df_main.ml
diff --git
a/virt-df/virt_df_main.ml
b/virt-df/virt_df_main.ml
index
21f2db0
..
84d7cc2
100644
(file)
--- a/
virt-df/virt_df_main.ml
+++ b/
virt-df/virt_df_main.ml
@@
-295,7
+295,7
@@
OPTIONS" in
List.iter (
function
| ({ Diskimage.d_content = `Filesystem fs; d_dev = dev } as disk) ->
- f dom ~disk
dev
fs
+ f dom ~disk
(dev :> Diskimage.device)
fs
| ({ Diskimage.d_content = `Partitions partitions } as disk) ->
List.iteri (
fun i ->