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 ->