bitmatch >= 1.9.5 now required
[virt-df.git] / lib / diskimage_lvm2.ml
index 0a9b74a..d4d766e 100644 (file)
@@ -126,17 +126,17 @@ and read_pv_label dev =
   bitmatch bits with
   | {
       (* sector 0 *)
-      sector0 : sector_size_int*8 : bitstring;
+      _ : sector_size_int*8 : bitstring;
 
       (* sector 1 *)
       "LABELONE" : 64 : string;                (* "LABELONE" *)
       _ : 128 : bitstring;             (* Seems to contain something. *)
       "LVM2 001" : 64 : string;                (* "LVM2 001" *)
       uuid : 256 : string;             (* PV UUID *)
-      endsect : (sector_size_int-64)*8 : bitstring;(* to end of second sector *)
+      _ : (sector_size_int-64)*8 : bitstring;(* to end of second sector *)
 
       (* sectors 2-7 *)
-      sectors234567 : sector_size_int*8 * 6 : bitstring;
+      _ : sector_size_int*8 * 6 : bitstring;
 
       (* sector 8 *)
       _ : 320 : bitstring;             (* start of sector 8 *)