From: Richard W.M. Jones <rjones@redhat.com>
Date: Mon, 28 Jan 2013 09:56:27 +0000 (+0000)
Subject: slave: Simple fix for changed type signature of #tar_out method.
X-Git-Tag: 0.2.2~2
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=4110c7da9f42d4c274baa8065ea46abc107e07d8;p=guestfs-browser.git

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
--- 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