diff options
| author | Emilio Jesus Gallego Arias | 2018-10-02 15:59:06 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-10-02 16:00:22 +0200 |
| commit | 87d5e79baea4f3679a1429d2a2e128b564eec5d5 (patch) | |
| tree | b8c6f4999bbb806bcceaec22fbe482a839246cfd /plugins/extraction/table.ml | |
| parent | e65d160d5fa4e0b8b5754b0925b0b5a880523bc5 (diff) | |
[ocaml] [lib] Remove some compatibility layers for OCaml < 4.03.0
Diffstat (limited to 'plugins/extraction/table.ml')
| -rw-r--r-- | plugins/extraction/table.ml | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index e05e82af6f..6ee1770a4e 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -22,11 +22,6 @@ 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 *) @@ -61,7 +56,7 @@ let is_modfile = function | _ -> false let raw_string_of_modfile = function - | MPfile f -> capitalize (Id.to_string (List.hd (DirPath.repr f))) + | MPfile f -> String.capitalize_ascii (Id.to_string (List.hd (DirPath.repr f))) | _ -> assert false let is_toplevel mp = @@ -784,7 +779,7 @@ let file_of_modfile mp = let add_blacklist_entries l = blacklist_table := - List.fold_right (fun s -> Id.Set.add (Id.of_string (capitalize s))) + List.fold_right (fun s -> Id.Set.add (Id.of_string (String.capitalize_ascii s))) l !blacklist_table (* Registration of operations for rollback. *) |