slave: Simple fix for changed type signature of #tar_out method.

[guestfs-browser.git] / slave.ml

diff --git a/slave.ml b/slave.ml
index 360a11c..05ded0e 100644 (file)
--- a/slave.ml
+++ b/slave.ml
@@ -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