Skip to content

Commit f984931

Browse files
committed
remove some unneeded flags
- labels since it is already the default - no-app-funct - rectypes : not very useful since we have unboxed
1 parent 6427756 commit f984931

File tree

2 files changed

+2
-4
lines changed

2 files changed

+2
-4
lines changed

jscomp/main/js_main.ml

+1-4
Original file line numberDiff line numberDiff line change
@@ -447,13 +447,10 @@ let buckle_script_flags : (string * Arg.spec * string) list =
447447
"-i", Set Clflags.print_types, " Print inferred interface";
448448
"-intf-suffix", String (fun s -> Config.interface_suffix := s),
449449
"<string> Suffix for interface files (default: .mli)";
450-
"-nolabels", Set Clflags.classic, " Ignore non-optional labels in types";
451-
"-labels", Clear Clflags.classic, " Use commuting label mode";
450+
"-nolabels", Set Clflags.classic, " Ignore non-optional labels in types";
452451
"-no-alias-deps", Set Clflags.transparent_modules, " Do not record dependencies for module aliases";
453-
"-no-app-funct", Clear Clflags.applicative_functors, " Deactivate applicative functors";
454452
"-o", String (fun s -> Clflags.output_name := Some s), "<file> Set output file name to <file>";
455453
"-principal", Set Clflags.principal, " Check principality of type inference";
456-
"-rectypes", Set Clflags.recursive_types, " Allow arbitrary recursive types";
457454
"-short-paths", Clear Clflags.real_paths, " Shorten paths in types";
458455
"-unsafe", Set Clflags.fast, " Do not compile bounds checking on array and string access";
459456
"-w", String (Warnings.parse_options false),

scripts/buckle_lto.js

+1
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,7 @@ var pairs = [
1414
["Clflags.strict_formats", "true"],
1515
["Location.absname", "true"],
1616
["Clflags.compile_only", "true"],
17+
["Clflags.recursive_types","false"]
1718
];
1819

1920
var regexp = RegExp(

0 commit comments

Comments
 (0)