Removed warning about unused return value.

diff --git a/lib/diskimage_utils.ml b/lib/diskimage_utils.ml
index 3ea53b7..1a85f52 100644 (file)
--- a/lib/diskimage_utils.ml
+++ b/lib/diskimage_utils.ml
@@ -105,7 +105,7 @@ object (self)
     let len = Int63.to_int len in
     ignore (LargeFile.lseek fd offset SEEK_SET);
     let str = String.make len '\000' in
-    read fd str 0 len;
+    ignore (read fd str 0 len);
     str
   method size = size
   method name = filename