diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-05-30 08:10:42 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-05-30 08:10:42 +0200 |
| commit | ba3ccf80a44f0e06ee6e622a30f99de6804d005e (patch) | |
| tree | e070e15d3e6cb54ba97601d938711cad7df64299 /ide/preferences.ml | |
| parent | 0336d4d19d446315cb922149b8ee4e7885843be0 (diff) | |
| parent | b30a6b141fed01a62330051bfb92c19564c93215 (diff) | |
Merge PR#692: Fail on deprecated warning even for Ocaml > 4.02.3
Diffstat (limited to 'ide/preferences.ml')
| -rw-r--r-- | ide/preferences.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ide/preferences.ml b/ide/preferences.ml index 9fe9c6337..44a89edf9 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -643,6 +643,10 @@ let pmodifiers ?(all = false) name p = modifiers name (str_to_mod_list p#get) +[@@@ocaml.warning "-3"] (* String.uppercase_ascii since 4.03.0 GPR#124 *) +let uppercase = String.uppercase +[@@@ocaml.warning "+3"] + let configure ?(apply=(fun () -> ())) () = let cmd_coqtop = string @@ -969,7 +973,7 @@ let configure ?(apply=(fun () -> ())) () = let k = if Int.equal (CString.length k) 1 && Util.is_letter k.[0] then k else "" in - let k = CString.uppercase k in + let k = uppercase k in [q, k] in |