Fix all 'unused variable' warnings.

[virt-df.git] / lib / diskimage_fat.ml

diff --git a/lib/diskimage_fat.ml b/lib/diskimage_fat.ml
index 7c2108e..d6ead26 100644 (file)
--- a/lib/diskimage_fat.ml
+++ b/lib/diskimage_fat.ml
@@ -82,14 +82,14 @@ and probe_superblock dev =
       root_directory_cluster : 32 : littleendian;
       _ : 16;                          (* FS information sector *)
       _ : 16;                          (* Backup of boot sector *)
-      pad : 12*8 : bitstring;          (* Reserved *)
+      _ : 12*8 : bitstring;            (* Reserved *)
       _ : 8;                           (* Physical drive number *)
       _ : 8;                           (* Reserved *)
       _ : 8;                           (* Extended boot signature *)
       serial : 32 : littleendian;      (* Serial number. *)
       volume_label : 88 : string;      (* Volume label. *)
       "FAT32   " : 64 : string;                (* FAT32 identifier. *)
-      code : 420*8 : bitstring;                (* Boot code. *)
+      _ : 420*8 : bitstring;           (* Boot code. *)
       0x55AA : 16 } ->                 (* End of bootsector magic. *)
 
       let blocksize = bytes_per_sector * sectors_per_cluster in