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

Because optional arguments have been added, the type signature
changed:

File "slave.ml", line 323, characters 17-26:
Error: This expression has type string -> string -> unit
       but an expression was expected of type
         ?compress:string ->
         ?numericowner:bool ->
         ?excludes:string array -> string -> string -> unit

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