X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fexamples%2Flvs.ml;h=5db1089e05b3637806f7bc77df631a9ef7d4ce1f;hp=74998b9f6bd2f0274afa62237c49b0abdb0f6a9d;hb=58012dc9b67aa1b5de9c5dc70e7e471de3ed2a6a;hpb=8869adf1e811d894088dbb0f371edc23299005c8

diff --git a/ocaml/examples/lvs.ml b/ocaml/examples/lvs.ml
index 74998b9..5db1089 100644
--- a/ocaml/examples/lvs.ml
+++ b/ocaml/examples/lvs.ml
@@ -9,7 +9,7 @@ let () =
   );
 
   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;
 
   let pvs = Guestfs.pvs h in