slave: Use slightly modified event_callback.

In libguestfs >= 1.31.12 there is a small change to the OCaml API:
event_callback loses its Guestfs.t handle parameter.

The libguestfs commit is:
https://github.com/libguestfs/libguestfs/commit/8bbc5e73cb5b56b5cfbe979ac0e1c14d1701a0d8

diff --git a/README b/README
index 65f0ebc..ef4cf57 100644 (file)
--- a/README
+++ b/README
@@ -1,5 +1,5 @@
 Guest filesystem browser
-Copyright (C) 2010-2011 Red Hat Inc.
+Copyright (C) 2010-2015 Red Hat Inc.
 
 To compile from source, install the prerequisites (run the ./configure
 script and it will tell you what's missing).
@@ -10,8 +10,7 @@ script and it will tell you what's missing).
 
 Note these minimum versions of libguestfs:
 
-  libguestfs >= 1.13.2  (on development branch)
-  libguestfs >= 1.12.2  (on stable-1.12 branch)
-  libguestfs >= 1.10.6  (on stable-1.10 branch)
+  libguestfs >= 1.32     (on stable-1.32 branch)
+  libguestfs >= 1.31.12  (on development branch)
 
 Developers/contributors: Please read the "HACKING" file.

diff --git a/slave.ml b/slave.ml
index 05ded0e..dd087dd 100644 (file)
--- a/slave.ml
+++ b/slave.ml
@@ -1,5 +1,5 @@
 (* Guestfs Browser.
- * Copyright (C) 2010-2011 Red Hat Inc.
+ * Copyright (C) 2010-2015 Red Hat Inc.
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -553,7 +553,7 @@ and open_disk_images images cb cmd =
   (* Attach progress bar callback. *)
   ignore (
     g#set_event_callback (
-      fun g event handle buf array ->
+      fun event handle buf array ->
         if event == G.EVENT_PROGRESS && Array.length array >= 4 then (
           let proc_nr = array.(0)
           and serial = array.(1)