From 23a1eac79ffcbab1801b89430fc0354e44cf7599 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Tue, 6 Oct 2015 19:56:36 +0100 Subject: [PATCH] slave: Use slightly modified event_callback. In libguestfs >= 1.31.12 there is a small change to the OCaml API: event_callback loses its Guestfs.t handle parameter. The libguestfs commit is: https://github.com/libguestfs/libguestfs/commit/8bbc5e73cb5b56b5cfbe979ac0e1c14d1701a0d8 --- README | 7 +++---- slave.ml | 4 ++-- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/README b/README index 65f0ebc..ef4cf57 100644 --- a/README +++ b/README @@ -1,5 +1,5 @@ Guest filesystem browser -Copyright (C) 2010-2011 Red Hat Inc. +Copyright (C) 2010-2015 Red Hat Inc. To compile from source, install the prerequisites (run the ./configure script and it will tell you what's missing). @@ -10,8 +10,7 @@ script and it will tell you what's missing). Note these minimum versions of libguestfs: - libguestfs >= 1.13.2 (on development branch) - libguestfs >= 1.12.2 (on stable-1.12 branch) - libguestfs >= 1.10.6 (on stable-1.10 branch) + libguestfs >= 1.32 (on stable-1.32 branch) + libguestfs >= 1.31.12 (on development branch) Developers/contributors: Please read the "HACKING" file. diff --git a/slave.ml b/slave.ml index 05ded0e..dd087dd 100644 --- a/slave.ml +++ b/slave.ml @@ -1,5 +1,5 @@ (* 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 @@ -553,7 +553,7 @@ and open_disk_images images cb cmd = (* 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) -- 1.8.3.1