X-Git-Url: http://git.annexia.org/?p=guestfs-browser.git;a=blobdiff_plain;f=slave.ml;h=dd087ddd61c17979eafaf4402473a71c09b79b47;hp=360a11c00881ad57124094a8e9330822b1850daf;hb=23a1eac79ffcbab1801b89430fc0354e44cf7599;hpb=38e0e295c438adea7a8acabd21c2fd02c236cc04

diff --git a/slave.ml b/slave.ml
index 360a11c..dd087dd 100644
--- 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
@@ -319,7 +319,7 @@ and execute_command = function
 
       let g = get_g () in
       let f = match format with
-        | Tar -> g#tar_out
+        | Tar -> fun a b -> g#tar_out a b
         | TGZ -> g#tgz_out
         | TXZ -> g#txz_out
       in
@@ -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)