Added the --ro option (readonly) to guestfish.

[libguestfs.git] / ocaml / guestfs.ml

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index 96ec6e3..d020df8 100644 (file)
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -211,3 +211,7 @@ external tgz_out : t -> string -> string -> unit = "ocaml_guestfs_tgz_out"
 external mount_ro : t -> string -> string -> unit = "ocaml_guestfs_mount_ro"
 external mount_options : t -> string -> string -> string -> unit = "ocaml_guestfs_mount_options"
 external mount_vfs : t -> string -> string -> string -> string -> unit = "ocaml_guestfs_mount_vfs"
+external debug : t -> string -> string array -> string = "ocaml_guestfs_debug"
+external lvremove : t -> string -> unit = "ocaml_guestfs_lvremove"
+external vgremove : t -> string -> unit = "ocaml_guestfs_vgremove"
+external pvremove : t -> string -> unit = "ocaml_guestfs_pvremove"