Group :: Desenvolvimento/ML
RPM: ocaml-lwt
Main Changelog Spec Patches Sources Download Gear Bugs e FR Repocop
Patch: ocaml-lwt-5.4.2-alt.patch
Download
Download
src/unix/dune | 2 +-
src/unix/lwt_bytes.ml | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/unix/dune b/src/unix/dune
index 80b2917..5ea7244 100644
--- a/src/unix/dune
+++ b/src/unix/dune
@@ -42,7 +42,7 @@ let () = Jbuild_plugin.V1.send @@ {|
(synopsis "Unix support for Lwt")
(optional)
(wrapped false)
- (libraries bigarray lwt mmap ocplib-endian.bigstring threads unix)
+ (libraries bigarray lwt ocplib-endian.bigstring threads unix)
|} ^ preprocess ^ {|
(c_names
lwt_unix_stubs
diff --git a/src/unix/lwt_bytes.ml b/src/unix/lwt_bytes.ml
index 65405b1..92cf727 100644
--- a/src/unix/lwt_bytes.ml
+++ b/src/unix/lwt_bytes.ml
@@ -167,7 +167,7 @@ let sendto fd buf pos len flags addr =
+-----------------------------------------------------------------+ *)
let map_file ~fd ?pos ~shared ?(size=(-1)) () =
- Mmap.V1.map_file fd ?pos char c_layout shared [|size|]
+ Unix.map_file fd ?pos char c_layout shared [|size|]
|> Bigarray.array1_of_genarray
[@@@ocaml.warning "-3"]