(* 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
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
(* 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)