git.annexia.org
/
guestfs-browser.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 0.1.7.
[guestfs-browser.git]
/
slave.ml
diff --git
a/slave.ml
b/slave.ml
index
c12f9a3
..
f72a5aa
100644
(file)
--- a/
slave.ml
+++ b/
slave.ml
@@
-491,7
+491,7
@@
and open_disk_images images cb =
ignore (
g#set_event_callback (
fun g event handle buf array ->
ignore (
g#set_event_callback (
fun g event handle buf array ->
- if event == G.EVENT_PROGRESS && Array.length array
=
= 4 then (
+ if event == G.EVENT_PROGRESS && Array.length array
>
= 4 then (
let proc_nr = array.(0)
and serial = array.(1)
and position = array.(2)
let proc_nr = array.(0)
and serial = array.(1)
and position = array.(2)