Merge PR #8626: [ocaml] [lib] Remove some compatibility layers for OCaml < 4.03.0

1 files changed, 1 insertions, 4 deletions

diff --git a/ide/protocol/xml_lexer.mll b/ide/protocol/xml_lexer.mll
index 4a52147e17..e8bf7e16ae 100644
--- a/ide/protocol/xml_lexer.mll
+++ b/ide/protocol/xml_lexer.mll
@@ -83,9 +83,6 @@ let error lexbuf e =
         last_pos := lexeme_start lexbuf;
         raise (Error e)
 
-[@@@ocaml.warning "-3"]       (* String.lowercase_ascii since 4.03.0 GPR#124 *)
-let lowercase = String.lowercase
-[@@@ocaml.warning "+3"]
 }
 
 let newline = ['\n']
@@ -222,7 +219,7 @@ and entity = parse
                 {
                         let ident = lexeme lexbuf in
                         try
-                                Hashtbl.find idents (lowercase ident)
+                                Hashtbl.find idents (String.lowercase_ascii ident)
                         with
                                 Not_found -> "&" ^ ident
                 }