fixup! CP-31566 define xenopsd fast resume operation

lindig · lindig · commit 88ece8963889 · 2025-12-02T16:00:47.000Z
Signed-off-by: Christian Lindig &lt;christian.lindig@citrix.com&gt;
diff --git a/ocaml/xenopsd/xc/domain.ml b/ocaml/xenopsd/xc/domain.ml
@@ -1364,7 +1364,7 @@ let build (task : Xenops_task.task_handle) ~xc ~xs ~store_domid ~console_domid
   build_post ~xc ~xs ~target_mib ~static_max_mib domid domain_type store_mfn
     store_port local_stuff vm_stuff
 
-let resume_post ~xc ~xs domid =
+let resume_post ~xc:_ ~xs domid =
   let dom_path = xs.Xs.getdomainpath domid in
   let store_mfn_s = xs.Xs.read (dom_path ^ "/store/ring-ref") in
   let store_mfn = Nativeint.of_string store_mfn_s in
diff --git a/ocaml/xenopsd/xc/xenops_server_xen.ml b/ocaml/xenopsd/xc/xenops_server_xen.ml
@@ -3022,7 +3022,7 @@ module VM = struct
     )
 
   let resume t vm =
-    on_domain t vm (fun xc xs task vm di ->
+    on_domain t vm (fun xc xs task _vm di ->
         let domid = di.Xenctrl.domid in
         let qemu_domid = this_domid ~xs in
         let domain_type =

Original file line number	Diff line number	Diff line change
`@@ -3022,7 +3022,7 @@ module VM = struct`
`3022`	`3022`	`)`
`3023`	`3023`
`3024`	`3024`	`let resume t vm =`
`3025`		`- on_domain t vm (fun xc xs task vm di ->`
	`3025`	`+ on_domain t vm (fun xc xs task _vm di ->`
`3026`	`3026`	`let domid = di.Xenctrl.domid in`
`3027`	`3027`	`let qemu_domid = this_domid ~xs in`
`3028`	`3028`	`let domain_type =`