[xen master] tools/ocaml/xenctrl: Fix unused value warning

[patchbot@xxxxxxx]

commit 2e173b8383928e8d98d67ce57ec069eb612def60
Author:     Edwin Török <edvin.torok@xxxxxxxxxx>
AuthorDate: Fri Dec 16 18:25:16 2022 +0000
Commit:     Andrew Cooper <andrew.cooper3@xxxxxxxxxx>
CommitDate: Mon Dec 19 19:31:26 2022 +0000

    tools/ocaml/xenctrl: Fix unused value warning
    
    Fixes: 8b3c06a3e5 ("tools/ocaml/xenctrl: OCaml 5 support, fix 
use-after-free")
    Signed-off-by: Edwin Török <edwin.torok@xxxxxxxxx>
    Acked-by: Christian Lindig <christian.lindig@xxxxxxxxxx>
    Acked-by: Andrew Cooper <andrew.cooper3@xxxxxxxxxx>
---
 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 9a80ae5e28..7442bbbfc5 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 =
--
generated by git-patchbot for /home/xen/git/xen.git#master