fixup! CA-384483: Can't export VDI to VHD file with base VDI

Signed-off-by: Ming Lu <[email protected]>
minglumlu · Mar 28, 2024 · ac458f5 · ac458f5
1 parent 5ed5a84
commit ac458f5
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/ocaml/xapi/vhd_tool_wrapper.ml b/ocaml/xapi/vhd_tool_wrapper.ml
@@ -194,8 +194,7 @@ let send progress_cb ?relative_to (protocol : string) (dest_format : string)
   let s' = Uuidx.(to_string (make ())) in
   let source_format, source =
     match (Stream_vdi.get_nbd_device path, vhd_of_device path, relative_to) with
-    | Some (nbd_server, exportname), None, None
-    | Some (nbd_server, exportname), Some _, None ->
+    | Some (nbd_server, exportname), _, None ->
         ( "nbdhybrid"
         , Printf.sprintf "%s:%s:%s:%Ld" path nbd_server exportname size
         )