diff --git a/CHANGES b/CHANGES index 68bd53a..b3b35b5 100644 --- a/CHANGES +++ b/CHANGES @@ -1,3 +1,7 @@ +0.5.2 (07-10-2017) +===== +* Fix compilation with OCaml 4.06 + 0.5.1 (11-04-2017) ===== * Install .cmx files diff --git a/configure.ac b/configure.ac index 6fb138a..b11c7a0 100644 --- a/configure.ac +++ b/configure.ac @@ -1,4 +1,4 @@ -AC_INIT([ocaml-ogg],[0.5.1],[savonet-users@lists.sourceforge.net]) +AC_INIT([ocaml-ogg],[0.5.2],[savonet-users@lists.sourceforge.net]) VERSION=$PACKAGE_VERSION AC_MSG_RESULT([configuring $PACKAGE_STRING]) diff --git a/src/ogg.ml b/src/ogg.ml index 9e0b953..f56b9a5 100644 --- a/src/ogg.ml +++ b/src/ogg.ml @@ -133,7 +133,7 @@ struct create (fun n -> let s = Bytes.create n in let r = Unix.read fd s 0 n in - s,r),fd + Bytes.to_string s,r),fd with | e -> Unix.close fd; raise e diff --git a/src/ogg_demuxer.ml b/src/ogg_demuxer.ml index a2e1476..56d3970 100644 --- a/src/ogg_demuxer.ml +++ b/src/ogg_demuxer.ml @@ -309,7 +309,7 @@ let unix_callbacks fd = (fun len -> let buf = Bytes.create len in let ret = Unix.read fd buf 0 len in - buf,ret); + Bytes.to_string buf,ret); tell = Some (fun () -> Unix.lseek fd 0 Unix.SEEK_CUR); seek = Some (fun len -> Unix.lseek fd len Unix.SEEK_SET) }