From 27b3a9543ea26b6163cab6fbbbf7cb811c69bc33 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 16 Jan 2015 11:48:12 +0100
Subject: [PATCH] use older Bigarray constructors

---
 bigarray/sequenceBigarray.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bigarray/sequenceBigarray.ml b/bigarray/sequenceBigarray.ml
index fd61b86..6f9c19f 100644
--- a/bigarray/sequenceBigarray.ml
+++ b/bigarray/sequenceBigarray.ml
@@ -36,7 +36,7 @@ let mmap filename =
     let fd = Unix.openfile filename [Unix.O_RDONLY] 0 in
     let len = Unix.lseek fd 0 Unix.SEEK_END in
     let _ = Unix.lseek fd 0 Unix.SEEK_SET in
-    let b = Bigarray.Array1.map_file fd Bigarray.Char Bigarray.C_layout false len in
+    let b = Bigarray.Array1.map_file fd Bigarray.char Bigarray.c_layout false len in
     try
       of_bigarray b yield;
       Unix.close fd