@@ -328,22 +328,22 @@ let parse_options () =
328328 ref (TypecheckerOptions. profile_top_level_definitions GlobalOptions. default)
329329 in
330330 let memtrace = ref None in
331- let enable_global_write_check = ref [] in
332- let enable_global_write_check_functions = ref SSet. empty in
331+ let enable_global_access_check = ref [] in
332+ let enable_global_access_check_functions = ref SSet. empty in
333333 let refactor_mode = ref " " in
334334 let refactor_analysis_mode = ref " " in
335- let set_enable_global_write_check_functions s =
335+ let set_enable_global_access_check_functions s =
336336 let json_obj = Hh_json. json_of_file s in
337337 let add_function f =
338338 match f with
339339 | Hh_json. JSON_String str ->
340- enable_global_write_check_functions :=
341- SSet. add str ! enable_global_write_check_functions
340+ enable_global_access_check_functions :=
341+ SSet. add str ! enable_global_access_check_functions
342342 | _ -> ()
343343 in
344344 match json_obj with
345345 | Hh_json. JSON_Array lst -> List. iter lst ~f: add_function
346- | _ -> enable_global_write_check_functions := SSet. empty
346+ | _ -> enable_global_access_check_functions := SSet. empty
347347 in
348348 let allow_all_files_for_module_declarations = ref true in
349349 let loop_iteration_upper_bound = ref None in
@@ -814,13 +814,13 @@ let parse_options () =
814814 " Sets the amount of fuel that the type printer can use to display an individual type. Default: "
815815 ^ string_of_int
816816 (TypecheckerOptions. type_printer_fuel GlobalOptions. default) );
817- ( " --enable-global-write -check" ,
817+ ( " --enable-global-access -check" ,
818818 Arg. String
819- (fun s -> enable_global_write_check := String_utils. split ',' s),
819+ (fun s -> enable_global_access_check := String_utils. split ',' s),
820820 " Run global write checker on any file whose path is prefixed by the argument (use \"\\\" for hh_single_type_check)"
821821 );
822- ( " --enable-global-write -check-functions" ,
823- Arg. String set_enable_global_write_check_functions ,
822+ ( " --enable-global-access -check-functions" ,
823+ Arg. String set_enable_global_access_check_functions ,
824824 " Run global write checker on functions listed in the given JSON file"
825825 );
826826 ( " --overwrite-loop-iteration-upper-bound" ,
@@ -965,9 +965,9 @@ let parse_options () =
965965 [" /" ]
966966 else
967967 [] )
968- ~tco_global_write_check_enabled: ! enable_global_write_check
969- ~tco_global_write_check_functions_enabled :
970- ! enable_global_write_check_functions
968+ ~tco_global_access_check_enabled: ! enable_global_access_check
969+ ~tco_global_access_check_functions_enabled :
970+ ! enable_global_access_check_functions
971971 ~tco_use_direct_decl_parser: ! use_direct_decl_parser
972972 ~po_enable_enum_classes: (not ! disable_enum_classes)
973973 ~po_interpret_soft_types_as_like_types: ! interpret_soft_types_as_like_types
0 commit comments