Rename Unused_subpat => Redundant_subpat
parent
47c0e44d63
commit
06f1a66f96
|
@ -2139,7 +2139,7 @@ let check_unused pred casel =
|
||||||
List.iter
|
List.iter
|
||||||
(fun p ->
|
(fun p ->
|
||||||
Location.prerr_warning
|
Location.prerr_warning
|
||||||
p.pat_loc Warnings.Unused_subpat)
|
p.pat_loc Warnings.Redundant_subpat)
|
||||||
ps
|
ps
|
||||||
| Used -> ()
|
| Used -> ()
|
||||||
with Empty | Not_found -> assert false
|
with Empty | Not_found -> assert false
|
||||||
|
|
|
@ -36,7 +36,7 @@ type t =
|
||||||
| Missing_record_field_pattern of string (* 9 *)
|
| Missing_record_field_pattern of string (* 9 *)
|
||||||
| Non_unit_statement (* 10 *)
|
| Non_unit_statement (* 10 *)
|
||||||
| Redundant_case (* 11 *)
|
| Redundant_case (* 11 *)
|
||||||
| Unused_subpat (* 12 *)
|
| Redundant_subpat (* 12 *)
|
||||||
| Instance_variable_override of string list (* 13 *)
|
| Instance_variable_override of string list (* 13 *)
|
||||||
| Illegal_backslash (* 14 *)
|
| Illegal_backslash (* 14 *)
|
||||||
| Implicit_public_methods of string list (* 15 *)
|
| Implicit_public_methods of string list (* 15 *)
|
||||||
|
@ -113,7 +113,7 @@ let number = function
|
||||||
| Missing_record_field_pattern _ -> 9
|
| Missing_record_field_pattern _ -> 9
|
||||||
| Non_unit_statement -> 10
|
| Non_unit_statement -> 10
|
||||||
| Redundant_case -> 11
|
| Redundant_case -> 11
|
||||||
| Unused_subpat -> 12
|
| Redundant_subpat -> 12
|
||||||
| Instance_variable_override _ -> 13
|
| Instance_variable_override _ -> 13
|
||||||
| Illegal_backslash -> 14
|
| Illegal_backslash -> 14
|
||||||
| Implicit_public_methods _ -> 15
|
| Implicit_public_methods _ -> 15
|
||||||
|
@ -209,7 +209,7 @@ let descriptions =
|
||||||
11, "Redundant case in a pattern matching (unused match case).",
|
11, "Redundant case in a pattern matching (unused match case).",
|
||||||
["redundant-case"];
|
["redundant-case"];
|
||||||
12, "Redundant sub-pattern in a pattern-matching.",
|
12, "Redundant sub-pattern in a pattern-matching.",
|
||||||
["unused-subpat"];
|
["redundant-subpat"];
|
||||||
13, "Instance variable overridden.",
|
13, "Instance variable overridden.",
|
||||||
["instance-variable-override"];
|
["instance-variable-override"];
|
||||||
14, "Illegal backslash escape in a string constant.",
|
14, "Illegal backslash escape in a string constant.",
|
||||||
|
@ -615,7 +615,7 @@ let message = function
|
||||||
| Non_unit_statement ->
|
| Non_unit_statement ->
|
||||||
"this expression should have type unit."
|
"this expression should have type unit."
|
||||||
| Redundant_case -> "this match case is unused."
|
| Redundant_case -> "this match case is unused."
|
||||||
| Unused_subpat -> "this sub-pattern is unused."
|
| Redundant_subpat -> "this sub-pattern is unused."
|
||||||
| Instance_variable_override [lab] ->
|
| Instance_variable_override [lab] ->
|
||||||
"the instance variable " ^ lab ^ " is overridden.\n" ^
|
"the instance variable " ^ lab ^ " is overridden.\n" ^
|
||||||
"The behaviour changed in ocaml 3.10 (previous behaviour was hiding.)"
|
"The behaviour changed in ocaml 3.10 (previous behaviour was hiding.)"
|
||||||
|
|
|
@ -38,7 +38,7 @@ type t =
|
||||||
| Missing_record_field_pattern of string (* 9 *)
|
| Missing_record_field_pattern of string (* 9 *)
|
||||||
| Non_unit_statement (* 10 *)
|
| Non_unit_statement (* 10 *)
|
||||||
| Redundant_case (* 11 *)
|
| Redundant_case (* 11 *)
|
||||||
| Unused_subpat (* 12 *)
|
| Redundant_subpat (* 12 *)
|
||||||
| Instance_variable_override of string list (* 13 *)
|
| Instance_variable_override of string list (* 13 *)
|
||||||
| Illegal_backslash (* 14 *)
|
| Illegal_backslash (* 14 *)
|
||||||
| Implicit_public_methods of string list (* 15 *)
|
| Implicit_public_methods of string list (* 15 *)
|
||||||
|
|
Loading…
Reference in New Issue