Return a specialized function so we don't break type safety.

[virt-df.git] / diskzip / diskzip.ml

diff --git a/diskzip/diskzip.ml b/diskzip/diskzip.ml
index 21d2cc3..3de7f63 100644 (file)
--- a/diskzip/diskzip.ml
+++ b/diskzip/diskzip.ml
@@ -150,6 +150,7 @@ and go_compress extcompress images =
   (* Create ownership tables. *)
   let ownership = Diskimage.create_ownership machine in
 
+  (* Create ownership bitmap for each disk. *)
 
 
   (* Redirect output through external pipe if asked. *)