diff options
| author | Pierre-Marie Pédrot | 2018-10-16 19:13:46 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-16 19:13:46 +0200 |
| commit | 3b1bff3262c7f40c7f4726d773845bfb6552d364 (patch) | |
| tree | 1d4b1fe091c50e7a1acfb6460ec113fd363b5d91 /tools | |
| parent | c64602a8cf882fa2e4b9a85ea9f57b5b709f598f (diff) | |
| parent | 33c93006b7685092b5239ea001058578fac3552f (diff) | |
Merge PR #8738: [clib] Deprecate string functions available in OCaml 4.05
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/coq_makefile.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/coq_makefile.ml b/tools/coq_makefile.ml index 0e56cc3c0f..d91c4f0b34 100644 --- a/tools/coq_makefile.ml +++ b/tools/coq_makefile.ml @@ -248,7 +248,7 @@ let rec logic_gcd acc = function let generate_conf_doc oc { defs; q_includes; r_includes } = let includes = List.map (forget_source > snd) (q_includes @ r_includes) in - let logpaths = List.map (CString.split '.') includes in + let logpaths = List.map (String.split_on_char '.') includes in let gcd = logic_gcd [] logpaths in let root = if gcd = [] then @@ -378,8 +378,8 @@ let destination_of { ml_includes; q_includes; r_includes; } file = | _ -> assert false let share_prefix s1 s2 = - let s1 = CString.split '.' s1 in - let s2 = CString.split '.' s2 in + let s1 = String.split_on_char '.' s1 in + let s2 = String.split_on_char '.' s2 in match s1, s2 with | x :: _ , y :: _ -> x = y | _ -> false |
