X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Fguestfs.ml;h=09b12b1c7892010f78cec976b2d2b917129b2f02;hb=170f262f0413de843af62b968f6d12c1c476ae7f;hp=f45533bb0a13828e54351b00f874f578caff331d;hpb=bb07a7f858da5d07c57360e62c0ddfd24ce6be45;p=libguestfs.git

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index f45533b..09b12b1 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -132,6 +132,8 @@ external is_config : t -> bool = "ocaml_guestfs_is_config"
 external is_launching : t -> bool = "ocaml_guestfs_is_launching"
 external is_busy : t -> bool = "ocaml_guestfs_is_busy"
 external get_state : t -> int = "ocaml_guestfs_get_state"
+external set_busy : t -> unit = "ocaml_guestfs_set_busy"
+external set_ready : t -> unit = "ocaml_guestfs_set_ready"
 external mount : t -> string -> string -> unit = "ocaml_guestfs_mount"
 external sync : t -> unit = "ocaml_guestfs_sync"
 external touch : t -> string -> unit = "ocaml_guestfs_touch"