Merge pull request #5632 from minglumlu/private/mingl/CA-392836

CA-392836,CA-392847: Lost the power state on suspended VM import
xapi-project · May 21, 2024 · a0a1e72 · a0a1e72
2 parents 772b6cb + db31267
commit a0a1e72
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/ocaml/xapi/import.ml b/ocaml/xapi/import.ml
@@ -629,8 +629,6 @@ module VM : HandlerTools = struct
               ~domain_type:vm_record.API.vM_domain_type
               ~is_a_template:vm_record.API.vM_is_a_template
               vm_record.API.vM_platform
-        ; API.vM_suspend_VDI= Ref.null
-        ; API.vM_power_state= `Halted
         }
       in
       let vm =
@@ -642,7 +640,11 @@ module VM : HandlerTools = struct
               Db.VM.set_uuid ~__context ~self:vm ~value:value.API.vM_uuid ;
             vm
           )
-          vm_record
+          {
+            vm_record with
+            API.vM_suspend_VDI= Ref.null
+          ; API.vM_power_state= `Halted
+          }
       in
       state.cleanup <-
         (fun __context rpc session_id ->