X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fdiskimage_linux_swsuspend.ml;h=f6b3a21d1b329d802f0c48fa3ae488b97acec78a;hb=5318d6037135dbb8f53074d8003af769132d72bd;hp=93da753a42d6f3ba5b391c79630f3f43ccb73548;hpb=65163f9e553f391a9189721485d0998edbdd7b6e;p=virt-df.git

diff --git a/lib/diskimage_linux_swsuspend.ml b/lib/diskimage_linux_swsuspend.ml
index 93da753..f6b3a21 100644
--- a/lib/diskimage_linux_swsuspend.ml
+++ b/lib/diskimage_linux_swsuspend.ml
@@ -33,8 +33,7 @@ let rec probe dev =
 
   bitmatch bits with
   | {
-      (* Actually this isn't just padding. *)
-      padding : 8*0x1000 - 10*8 : bitstring;
+      _ : 8*0x1000 - 10*8 : bitstring;
       ("S1SUSPEND"|"S2SUSPEND") : 80 : string
     } ->