@@ -447,13 +447,10 @@ let buckle_script_flags : (string * Arg.spec * string) list =
447
447
" -i" , Set Clflags. print_types, " Print inferred interface" ;
448
448
" -intf-suffix" , String (fun s -> Config. interface_suffix := s),
449
449
" <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" ;
452
451
" -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" ;
454
452
" -o" , String (fun s -> Clflags. output_name := Some s), " <file> Set output file name to <file>" ;
455
453
" -principal" , Set Clflags. principal, " Check principality of type inference" ;
456
- " -rectypes" , Set Clflags. recursive_types, " Allow arbitrary recursive types" ;
457
454
" -short-paths" , Clear Clflags. real_paths, " Shorten paths in types" ;
458
455
" -unsafe" , Set Clflags. fast, " Do not compile bounds checking on array and string access" ;
459
456
" -w" , String (Warnings. parse_options false ),
0 commit comments