fix deprecation warnings hidden by extlib

(versions <= 1.7.8)
mfp · Feb 3, 2021 · 56a188a · 56a188a
1 parent 0114dfd
commit 56a188a
Show file tree

Hide file tree

Showing 2 changed files with 62 additions and 60 deletions.
diff --git a/compiler/extprotc.ml b/compiler/extprotc.ml
@@ -108,7 +108,7 @@ let () =
        let global_opts = if !nolocs then ["locs", "false"] else [] in
        let global_opts = match !fieldmod with
          | "" -> global_opts
-         | s -> ("field-module", String.capitalize s) :: global_opts in
+         | s -> ("field-module", String.capitalize_ascii s) :: global_opts in
        let global_opts = if !export_tys then ("export_tys", "") :: global_opts else global_opts in
        let global_opts = ("assume_subsets", !assume_subsets) :: global_opts in
        let () =