From 53eb96099a46903be85f059500c74333a08b0e25 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 10 May 2024 15:37:08 +0100
Subject: [PATCH] generator: Allow String(GUID) parameter in daemon OCaml
 bindings

---
 generator/daemon.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generator/daemon.ml b/generator/daemon.ml
index a2c06f14e..5e2a78b91 100644
--- a/generator/daemon.ml
+++ b/generator/daemon.ml
@@ -793,7 +793,7 @@ let generate_daemon_caml_stubs () =
            | Bool n -> pr "Val_bool (%s)" n
            | Int n -> pr "Val_int (%s)" n
            | Int64 n -> pr "caml_copy_int64 (%s)" n
-           | String ((PlainString|Device|Pathname|Dev_or_Path|Key), n) ->
+           | String ((PlainString|Device|Pathname|Dev_or_Path|Key|GUID), n) ->
               pr "caml_copy_string (%s)" n
            | String ((Mountable|Mountable_or_Path), n) ->
               pr "guestfs_int_daemon_copy_mountable (%s)" n