From b1f11ef75b3e38078ca908d4ece34690310f6ed8 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Wed, 7 Oct 2015 14:16:00 +0100 Subject: [PATCH] ocaml/examples: Fix use of event_callback in debug_logging.ml. This fixes commit 8bbc5e73cb5b56b5cfbe979ac0e1c14d1701a0d8. --- ocaml/examples/debug_logging.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/examples/debug_logging.ml b/ocaml/examples/debug_logging.ml index 5886ec6b1..6b35e4da2 100644 --- a/ocaml/examples/debug_logging.ml +++ b/ocaml/examples/debug_logging.ml @@ -65,7 +65,7 @@ let rec main () = * This example simply redirects these messages to syslog, but * obviously you could do something more advanced here. *) -and message_callback g event event_handle buf array = +and message_callback event event_handle buf array = if String.length buf > 0 then ( let event_name = Guestfs.event_to_string [event] in Printf.printf "[%s] %S\n%!" event_name buf