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 /tools/coqmktop.ml | |
| parent | 0336d4d19d446315cb922149b8ee4e7885843be0 (diff) | |
| parent | b30a6b141fed01a62330051bfb92c19564c93215 (diff) | |
Merge PR#692: Fail on deprecated warning even for Ocaml > 4.02.3
Diffstat (limited to 'tools/coqmktop.ml')
| -rw-r--r-- | tools/coqmktop.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tools/coqmktop.ml b/tools/coqmktop.ml index defc803381..cd04665cc1 100644 --- a/tools/coqmktop.ml +++ b/tools/coqmktop.ml @@ -20,6 +20,10 @@ let split_list = let spaces = Str.regexp "[ \t\n]+" in fun str -> Str.split spaces str +[@@@ocaml.warning "-3"] (* String.uncapitalize_ascii since 4.03.0 GPR#124 *) +let capitalize = String.capitalize +[@@@ocaml.warning "+3"] + let (/) = Filename.concat (** Which user files do we support (and propagate to ocamlopt) ? @@ -39,8 +43,7 @@ let native_suffix f = match CUnix.get_extension f with (** Transforms a file name in the corresponding Caml module name. *) let module_of_file name = - String.capitalize - (try Filename.chop_extension name with Invalid_argument _ -> name) + capitalize (try Filename.chop_extension name with Invalid_argument _ -> name) (** Run a command [prog] with arguments [args]. We do not use [Sys.command] anymore, see comment in [CUnix.sys_command]. |