Commit 18cd71da authored by bguillaum's avatar bguillaum
Browse files

change deprecated Char.uppercase ocaml function

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@9067 7838e531-6607-4d57-9587-6c381814729c
parent cdaa4b4f
......@@ -342,7 +342,7 @@ module Html_doc = struct
wnl " <table width=100%%>";
List.iter
(fun initial ->
match List.filter (fun mod_ -> Char.uppercase mod_.Ast.module_id.[0] = initial) ast.Ast.modules with
match List.filter (fun mod_ -> Char.uppercase_ascii mod_.Ast.module_id.[0] = initial) ast.Ast.modules with
| [] -> ()
| l ->
wnl "<tr><td colspan=2 ><h6>%s</h6></td></tr>" (Char.escaped initial);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment