Detect Linux software suspend partitions (thanks Stephen Tweedie).

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

diff --git a/lib/diskimage.ml b/lib/diskimage.ml
index 37533f1..6f9ef1f 100644 (file)
--- a/lib/diskimage.ml
+++ b/lib/diskimage.ml
@@ -21,12 +21,14 @@ open Printf
 open ExtList
 open Unix
 
+open Int63.Operators
+
 include Diskimage_utils
 
 (* Use as the natural block size for disk images, but really we should
  * use the 'blockdev -getbsz' command to find the real block size.
  *)
-let disk_block_size = 512
+let disk_block_size = ~^512
 
 let partition_types = [
   Diskimage_mbr.plugin_id,
@@ -38,6 +40,8 @@ let filesystem_types = [
     ("Linux ext2/3", Diskimage_ext2.probe);
   Diskimage_linux_swap.plugin_id,
     ("Linux swap", Diskimage_linux_swap.probe);
+  Diskimage_linux_swsuspend.plugin_id,
+    ("Linux s/w suspend", Diskimage_linux_swsuspend.probe);
 ]
 
 let lvm_types = [