Fix unused value warning. Fixes: 8b3c06a3e5 ("tools/ocaml/xenctrl: OCaml 5 support, fix use-after-free") Signed-off-by: Edwin Török <edwin.to...@cloud.com> Cc: Andrew Cooper <andrew.coop...@citrix.com>
--- Changes: * new patch --- tools/ocaml/libs/xc/xenctrl.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/ocaml/libs/xc/xenctrl.ml b/tools/ocaml/libs/xc/xenctrl.ml index b02be07429..a59dee0938 100644 --- a/tools/ocaml/libs/xc/xenctrl.ml +++ b/tools/ocaml/libs/xc/xenctrl.ml @@ -182,7 +182,7 @@ let get_handle () = !handle let close_handle () = match !handle with - | Some h -> handle := None + | Some _ -> handle := None | None -> () let with_intf f = -- 2.34.1