From 4110c7da9f42d4c274baa8065ea46abc107e07d8 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Mon, 28 Jan 2013 09:56:27 +0000
Subject: [PATCH] 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
---
 slave.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/slave.ml b/slave.ml
index 360a11c..05ded0e 100644
--- 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
-- 
1.8.3.1