Skip to content

Commit 5d72a0a

Browse files
authored
Merge pull request #371 from favonia/ocaml5
Remove -safe-string for OCaml 5. See ocaml/ocaml#10893
2 parents d5dbad6 + df448e9 commit 5d72a0a

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/lib/uTop_main.ml

+2
Original file line numberDiff line numberDiff line change
@@ -1456,7 +1456,9 @@ let args = Arg.align [
14561456
"-nostdlib", Arg.Set Clflags.no_std_include, " Do not add default directory to the list of include directories";
14571457
"-ppx", Arg.String (fun ppx -> Clflags.all_ppx := ppx :: !Clflags.all_ppx), "<command> Pipe abstract syntax trees through preprocessor <command>";
14581458
"-principal", Arg.Set Clflags.principal, " Check principality of type inference";
1459+
#if OCAML_VERSION < (5, 0, 0)
14591460
"-safe-string", Arg.Clear Clflags.unsafe_string, " Make strings immutable";
1461+
#endif
14601462
"-short-paths", Arg.Clear Clflags.real_paths, " Shorten paths in types (the default)";
14611463
"-no-short-paths", Arg.Set Clflags.real_paths, " Do not shorten paths in types";
14621464
"-rectypes", Arg.Set Clflags.recursive_types, " Allow arbitrary recursive types";

0 commit comments

Comments
 (0)