X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_ocaml.ml;fp=generator%2Fgenerator_ocaml.ml;h=393a06290f41837c1530a715d50d29c3b4b9c01f;hp=860242c7e53f606ca9de7821a151b8aef9083fa4;hb=8d3e97679a698386980bd1e5e5833542412a56f6;hpb=4220b7a6411f1eeecc616e37adaa5b2d2fe9aec1

diff --git a/generator/generator_ocaml.ml b/generator/generator_ocaml.ml
index 860242c..393a062 100644
--- a/generator/generator_ocaml.ml
+++ b/generator/generator_ocaml.ml
@@ -537,7 +537,8 @@ copy_table (char * const * argv)
         pr "CAMLprim value ";
         pr "ocaml_guestfs_%s_byte (value *argv, int argn);\n" name;
         pr "CAMLprim value\n";
-        pr "ocaml_guestfs_%s_byte (value *argv, int argn)\n" name;
+        pr "ocaml_guestfs_%s_byte (value *argv, int argn ATTRIBUTE_UNUSED)\n"
+          name;
         pr "{\n";
         pr "  return ocaml_guestfs_%s (argv[0]" name;
         iteri (fun i _ -> pr ", argv[%d]" i) (List.tl params);