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

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