From: Matthias Goergens <Matthias.Goergens@citrix.com>
Date: Thu, 17 Jun 2010 21:16:18 +0000 (+0100)
Subject: mlvm/redo.ml was rid of a warning
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=1e53e265af7b531e0ef94a7a238aebf89f745146;p=xcp%2Fxen-api-libs.git

mlvm/redo.ml was rid of a warning

Signed-off-by: Matthias Goergens <matthias.goergens@citrix.com>
---

diff --git a/mlvm/redo.ml b/mlvm/redo.ml
index 35b2cc3..ed624a7 100644
--- a/mlvm/redo.ml
+++ b/mlvm/redo.ml
@@ -68,7 +68,7 @@ let write fd offset size ops =
 	    raise (OutOfSize op.so_seqno)
 	  else begin
 	    ignore(Unix.LargeFile.lseek fd ofs Unix.SEEK_SET);
-	    Unix.write fd str 0 len;
+	    ignore(Unix.write fd str 0 len);
 	    let new_pos = Int64.add ofs (Int64.of_int len) in
 	    write_initial_pos fd offset new_pos;
 	    write new_pos ops