more fix stdlib warnings

ocaml · Apr 16, 2020 · 840fdca · 840fdca
1 parent c5aab9b
commit 840fdca
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 1 deletion.
diff --git a/src/core/opamCompat.mli b/src/core/opamCompat.mli
@@ -89,3 +89,7 @@ module Filename
   val extension : string -> string
 end
 #endif
+
+#if OCAML_VERSION < (4, 7, 0)
+module Stdlib = Pervasives
+#endif
diff --git a/src/core/opamFilename.ml b/src/core/opamFilename.ml
@@ -374,6 +374,7 @@ let flock flag ?dontblock file = OpamSystem.flock flag ?dontblock (to_string fil
 let with_flock flag ?dontblock file f =
   let lock = OpamSystem.flock flag ?dontblock (to_string file) in
   try
+    let open OpamCompat in
     let (fd, ch) =
       match OpamSystem.get_lock_fd lock with
       | exception Not_found ->

diff --git a/src/core/opamProcess.ml b/src/core/opamProcess.ml
@@ -379,7 +379,8 @@ let exit_status p return =
   if isset_verbose_f () then
     stop_verbose_f ()
   else if p.p_verbose then
-    (verbose_print_cmd p;
+    (let open OpamCompat in
+     verbose_print_cmd p;
      List.iter verbose_print_out stdout;
      List.iter verbose_print_out stderr;
      flush Stdlib.stdout);