docs: Standard C examples, and guestfs-examples(3) man page.

[libguestfs.git] / ocaml / examples / lvs.ml

diff --git a/ocaml/examples/lvs.ml b/ocaml/examples/lvs.ml
index 12c7c15..5db1089 100644 (file)
--- a/ocaml/examples/lvs.ml
+++ b/ocaml/examples/lvs.ml
@@ -9,9 +9,8 @@ let () =
   );
 
   let h = Guestfs.create () in
   );
 
   let h = Guestfs.create () in

-  Guestfs.add_drive h Sys.argv.(1);
+  Guestfs.add_drive_opts h ~format:"raw" Sys.argv.(1);

   Guestfs.launch h;
   Guestfs.launch h;

-  Guestfs.wait_ready h;

 
   let pvs = Guestfs.pvs h in
   printf "PVs found: [ %s ]\n" (String.concat "; " (Array.to_list pvs));
 
   let pvs = Guestfs.pvs h in
   printf "PVs found: [ %s ]\n" (String.concat "; " (Array.to_list pvs));