diff --git a/compiler/bsb/bsb_exception.ml b/compiler/bsb/bsb_exception.ml index 9902429497..eecb9dd03f 100644 --- a/compiler/bsb/bsb_exception.ml +++ b/compiler/bsb/bsb_exception.ml @@ -52,7 +52,7 @@ let print (fmt : Format.formatter) (x : error) = "File \"rescript.json\", line 1\n\ @{Error:@} package @{%s@} is not found\n\ It's the basic, required package. If you have it installed globally,\n\ - Please run `npm link rescript` to make it available" + Run `npm link rescript` to make it available." name else Format.fprintf fmt @@ -64,7 +64,7 @@ let print (fmt : Format.formatter) (x : error) = Format.fprintf fmt "File %S, line %d:\n\ @{Error:@} %s \n\ - For more details, please check out the schema at \ + For more details, check out the schema at \ https://rescript-lang.org/docs/manual/latest/build-configuration-schema" pos.pos_fname pos.pos_lnum s | Invalid_spec s -> diff --git a/compiler/core/js_packages_info.ml b/compiler/core/js_packages_info.ml index 6e1e53321a..d490a5050c 100644 --- a/compiler/core/js_packages_info.ml +++ b/compiler/core/js_packages_info.ml @@ -183,7 +183,7 @@ let get_output_dir (info : t) ~package_dir module_system = let add_npm_package_path (packages_info : t) (s : string) : t = if is_empty packages_info then - Bsc_args.bad_arg "please set package name first using -bs-package-name " + Bsc_args.bad_arg "Set package name first using -bs-package-name" else let handle_module_system module_system = match module_system_of_string module_system with diff --git a/compiler/depends/bs_exception.ml b/compiler/depends/bs_exception.ml index d04ffca880..bd1e498d9c 100644 --- a/compiler/depends/bs_exception.ml +++ b/compiler/depends/bs_exception.ml @@ -64,7 +64,7 @@ let report_error ppf = function | Bs_main_not_exist main -> Format.fprintf ppf "File %s not found " main | Bs_package_not_found package -> Format.fprintf ppf - "Package %s not found or %s/lib/ocaml does not exist or please set \ + "Package %s not found or %s/lib/ocaml does not exist or set \ npm_config_prefix correctly" package package | Bs_invalid_path path -> Format.pp_print_string ppf ("Invalid path: " ^ path) diff --git a/compiler/ext/warnings.ml b/compiler/ext/warnings.ml index f799100a36..1ef517acc4 100644 --- a/compiler/ext/warnings.ml +++ b/compiler/ext/warnings.ml @@ -423,11 +423,11 @@ let message = function | Unused_rec_flag -> "unused rec flag." | Ambiguous_name ([s], tl, false) -> s ^ " belongs to several types: " ^ String.concat " " tl - ^ "\nThe first one was selected. Please disambiguate if this is wrong." + ^ "\nThe first one was selected. Disambiguate if this is wrong." | Ambiguous_name (_, _, false) -> assert false | Ambiguous_name (_slist, tl, true) -> "these field labels belong to several types: " ^ String.concat " " tl - ^ "\nThe first one was selected. Please disambiguate if this is wrong." + ^ "\nThe first one was selected. Disambiguate if this is wrong." | Nonoptional_label s -> "the label " ^ s ^ " is not optional." | Open_shadow_identifier (kind, s) -> Printf.sprintf diff --git a/compiler/frontend/bs_ast_invariant.ml b/compiler/frontend/bs_ast_invariant.ml index 5ae58f8d84..cbe5a4432e 100644 --- a/compiler/frontend/bs_ast_invariant.ml +++ b/compiler/frontend/bs_ast_invariant.ml @@ -86,7 +86,7 @@ let emit_external_warnings : iterator = [{ptype_kind = Ptype_variant ({pcd_res = Some _} :: _)}] ) -> Location.raise_errorf ~loc:str_item.pstr_loc "GADTs require recursive type syntax.\n\ - Please define your type using `type rec` instead of `type`.\n\ + Define your type using `type rec` instead of `type`.\n\ Example: type rec t = ..." | _ -> super.structure_item self str_item); expr = diff --git a/compiler/ml/typemod.ml b/compiler/ml/typemod.ml index 3f43b27895..0932c62f34 100644 --- a/compiler/ml/typemod.ml +++ b/compiler/ml/typemod.ml @@ -1821,7 +1821,7 @@ let report_error ppf = function | Cannot_eliminate_dependency mty -> fprintf ppf "@[This functor has type@ %a@ The parameter cannot be eliminated in the \ - result type.@ Please bind the argument to a module identifier.@]" + result type.@ Bind the argument to a module identifier.@]" modtype mty | Signature_expected -> fprintf ppf "This module type is not a signature" | Structure_expected mty -> diff --git a/compiler/syntax/src/jsx_v4.ml b/compiler/syntax/src/jsx_v4.ml index 7351aaf384..54f1ea8a2a 100644 --- a/compiler/syntax/src/jsx_v4.ml +++ b/compiler/syntax/src/jsx_v4.ml @@ -809,8 +809,7 @@ let map_binding ~config ~empty_loc ~pstr_loc ~file_name ~rec_flag binding = | Pexp_fun {arg_label = Labelled _ | Optional _} -> Location.raise_errorf ~loc:expr.pexp_loc "Components using React.forwardRef cannot use \ - @react.componentWithProps. Please use @react.component \ - instead." + @react.componentWithProps. Use @react.component instead." | Pexp_fun {arg_label = Nolabel; rhs = body} -> check_invalid_forward_ref body | _ -> () diff --git a/tests/build_tests/super_errors/expected/gadt_rec_missing.res.expected b/tests/build_tests/super_errors/expected/gadt_rec_missing.res.expected index 69f6b0b227..d09016c09a 100644 --- a/tests/build_tests/super_errors/expected/gadt_rec_missing.res.expected +++ b/tests/build_tests/super_errors/expected/gadt_rec_missing.res.expected @@ -12,5 +12,5 @@ 9 │ GADTs require recursive type syntax. -Please define your type using `type rec` instead of `type`. +Define your type using `type rec` instead of `type`. Example: type rec t = ... \ No newline at end of file diff --git a/tests/build_tests/super_errors/expected/react_component_with_props.res.expected b/tests/build_tests/super_errors/expected/react_component_with_props.res.expected index c92961ce8c..ea08c175f2 100644 --- a/tests/build_tests/super_errors/expected/react_component_with_props.res.expected +++ b/tests/build_tests/super_errors/expected/react_component_with_props.res.expected @@ -12,4 +12,4 @@ 14 │ ) 15 │ } - Components using React.forwardRef cannot use @react.componentWithProps. Please use @react.component instead. \ No newline at end of file + Components using React.forwardRef cannot use @react.componentWithProps. Use @react.component instead. \ No newline at end of file