Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rename

master
Mark Shinwell 2016-01-14 12:03:17 +00:00
parent 0f3c60b9ff
commit ceec2b9759
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/warnings.ml
View File

@ -76,7 +76,7 @@ type t =
| Unreachable_case (* 56 *)
| Ambiguous_pattern of string list (* 57 *)
| No_cmx_file of string (* 58 *)
| Assignment_on_non_mutable_value (* 59 *)
| Assignment_to_non_mutable_value (* 59 *)
;;
(* If you remove a warning, leave a hole in the numbering. NEVER change
@ -144,7 +144,7 @@ let number = function
| Unreachable_case -> 56
| Ambiguous_pattern _ -> 57
| No_cmx_file _ -> 58
| Assignment_on_non_mutable_value -> 59
| Assignment_to_non_mutable_value -> 59
;;
let last_warning_number = 59
@ -434,7 +434,7 @@ let message = function
Printf.sprintf "the %S attribute is used more than once on this expression" attr_name
| Inlining_impossible reason ->
Printf.sprintf "Inlining impossible in this context: %s" reason
| Assignment_on_non_mutable_value -> "Assignment to non-mutable value"
| Assignment_to_non_mutable_value -> "Assignment to non-mutable value"
| Ambiguous_pattern vars ->
let msg =
let vars = List.sort String.compare vars in

2
utils/warnings.mli
View File

@ -71,7 +71,7 @@ type t =
| Unreachable_case (* 56 *)
| Ambiguous_pattern of string list (* 57 *)
| No_cmx_file of string (* 58 *)
| Assignment_on_non_mutable_value (* 59 *)
| Assignment_to_non_mutable_value (* 59 *)
;;
val parse_options : bool -> string -> unit;;