Convert everything to use int63 type throughout.

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

diff --git a/lib/diskimage.ml b/lib/diskimage.ml
index 37533f1..b08c50d 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,