diff options
| author | Maxime Dénès | 2017-05-30 08:10:42 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-30 08:10:42 +0200 |
| commit | ba3ccf80a44f0e06ee6e622a30f99de6804d005e (patch) | |
| tree | e070e15d3e6cb54ba97601d938711cad7df64299 /plugins/extraction/table.ml | |
| parent | 0336d4d19d446315cb922149b8ee4e7885843be0 (diff) | |
| parent | b30a6b141fed01a62330051bfb92c19564c93215 (diff) | |
Merge PR#692: Fail on deprecated warning even for Ocaml > 4.02.3
Diffstat (limited to 'plugins/extraction/table.ml')
| -rw-r--r-- | plugins/extraction/table.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index fc1ed335a4..a369cbdf37 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -20,6 +20,11 @@ open Util open Pp open Miniml +[@@@ocaml.warning "-3"] (* String.capitalize_ascii since 4.03.0 GPR#124 *) +let capitalize = String.capitalize +[@@@ocaml.warning "+3"] + + (** Sets and maps for [global_reference] that use the "user" [kernel_name] instead of the canonical one *) @@ -55,7 +60,7 @@ let is_modfile = function | _ -> false let raw_string_of_modfile = function - | MPfile f -> String.capitalize (Id.to_string (List.hd (DirPath.repr f))) + | MPfile f -> capitalize (Id.to_string (List.hd (DirPath.repr f))) | _ -> assert false let is_toplevel mp = @@ -772,7 +777,7 @@ let file_of_modfile mp = let add_blacklist_entries l = blacklist_table := - List.fold_right (fun s -> Id.Set.add (Id.of_string (String.capitalize s))) + List.fold_right (fun s -> Id.Set.add (Id.of_string (capitalize s))) l !blacklist_table (* Registration of operations for rollback. *) |