From e7c265bcf966594569ca01e8f1379509eb00dc43 Mon Sep 17 00:00:00 2001 From: Kate Date: Fri, 5 Jul 2019 16:09:44 +0100 Subject: [PATCH] Fix Containers.Stdlib on OCaml 4.07 --- src/core/mkshims.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/core/mkshims.ml b/src/core/mkshims.ml index 3d73328b..3aee1744 100644 --- a/src/core/mkshims.ml +++ b/src/core/mkshims.ml @@ -1,9 +1,9 @@ module C = Configurator.V1 -let shims_pre_408 = "module Stdlib = Pervasives" +let shims_pre_407 = "module Stdlib = Pervasives" -let shims_post_408 = "module Stdlib = Stdlib" +let shims_post_407 = "module Stdlib = Stdlib" let shims_fmt_pre_408 = " include Format @@ -55,7 +55,7 @@ let () = C.main ~name:"mkshims" (fun c -> let version = C.ocaml_config_var_exn c "version" in let major, minor = Scanf.sscanf version "%u.%u" (fun maj min -> maj, min) in - write_file "CCShims_.ml" (if (major, minor) >= (4,8) then shims_post_408 else shims_pre_408); + write_file "CCShims_.ml" (if (major, minor) >= (4,7) then shims_post_407 else shims_pre_407); write_file "CCShimsList_.ml" (if (major, minor) >= (4,8) then shims_list_post_408 else shims_list_pre_408); write_file "CCShimsArray_.ml" (if (major, minor) >= (4,8) then shims_array_post_408 else shims_array_pre_408); write_file "CCShimsFormat_.ml" (if (major, minor) >= (4,8) then shims_fmt_post_408 else shims_fmt_pre_408);