From df448e9ccdc030f69e0ad92134463f5bf7974f7d Mon Sep 17 00:00:00 2001 From: favonia Date: Sun, 27 Mar 2022 22:09:30 -0500 Subject: [PATCH] Remove -safe-string for OCaml 5. See ocaml/ocaml#10893 --- src/lib/uTop_main.ml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/lib/uTop_main.ml b/src/lib/uTop_main.ml index 1f873cd..072895e 100644 --- a/src/lib/uTop_main.ml +++ b/src/lib/uTop_main.ml @@ -1456,7 +1456,9 @@ let args = Arg.align [ "-nostdlib", Arg.Set Clflags.no_std_include, " Do not add default directory to the list of include directories"; "-ppx", Arg.String (fun ppx -> Clflags.all_ppx := ppx :: !Clflags.all_ppx), " Pipe abstract syntax trees through preprocessor "; "-principal", Arg.Set Clflags.principal, " Check principality of type inference"; +#if OCAML_VERSION < (5, 0, 0) "-safe-string", Arg.Clear Clflags.unsafe_string, " Make strings immutable"; +#endif "-short-paths", Arg.Clear Clflags.real_paths, " Shorten paths in types (the default)"; "-no-short-paths", Arg.Set Clflags.real_paths, " Do not shorten paths in types"; "-rectypes", Arg.Set Clflags.recursive_types, " Allow arbitrary recursive types";