mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

ocaml/examples: Fix use of event_callback in debug_logging.ml.

Browse Source 
This fixes commit 8bbc5e73cb.
This commit is contained in:
Richard W.M. Jones
2015-10-07 14:16:00 +01:00
parent a332e23dde
commit b1f11ef75b
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/examples/debug_logging.ml
View File

@@ -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