slave: Use slightly modified event_callback.

[guestfs-browser.git] / slave.ml

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)