X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs.ml;fp=ocaml%2Fguestfs.ml;h=cf75d7b9bc3a37358c4328c03f6dcc126c175f50;hp=d218b3e32d5bc8a8ccd06d4c6601fec9c6fdc556;hb=d1a1ab972bb22f4c38a21fcc73f81650aaa03b4e;hpb=bfdc03be234d6d95f18450846433bce4f97e184c

diff --git a/ocaml/guestfs.ml b/ocaml/guestfs.ml
index d218b3e..cf75d7b 100644
--- a/ocaml/guestfs.ml
+++ b/ocaml/guestfs.ml
@@ -147,6 +147,7 @@ external wait_ready : t -> unit = "ocaml_guestfs_wait_ready"
 external kill_subprocess : t -> unit = "ocaml_guestfs_kill_subprocess"
 external add_drive : t -> string -> unit = "ocaml_guestfs_add_drive"
 external add_cdrom : t -> string -> unit = "ocaml_guestfs_add_cdrom"
+external add_drive_ro : t -> string -> unit = "ocaml_guestfs_add_drive_ro"
 external config : t -> string -> string option -> unit = "ocaml_guestfs_config"
 external set_qemu : t -> string -> unit = "ocaml_guestfs_set_qemu"
 external get_qemu : t -> string = "ocaml_guestfs_get_qemu"