We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent e86dfb0 commit d41347aCopy full SHA for d41347a
ocaml/xapi/qcow_tool_wrapper.ml
@@ -50,6 +50,11 @@ let send ?relative_to (progress_cb : int -> unit) (unix_fd : Unix.file_descr)
50
to avoid reading all of the raw disk *)
51
let input_fd = Result.map read_header qcow_path |> Result.to_option in
52
53
+ (* TODO: If VHD headers are to be consulted as well, qcow2-to-stdout
54
+ needs to properly account for cluster_bits. Currently QCOW2 export
55
+ from VHD-backed VDIs will just revert to raw, without any
56
+ allocation accounting. *)
57
+
58
(* Parse the header of the VDI we are diffing against as well *)
59
let relative_to_qcow_path =
60
match relative_to with
0 commit comments