matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use lowercase_ascii

This commit is contained in:
François Bobot 2017-07-06 14:32:46 +02:00 committed by David Allsopp
parent e71ad02f02
commit 9935c838b3
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/context.ml
View File

@ -22,7 +22,7 @@ module Env_var = struct
type t = string
let compare a b =
if Sys.win32 then
String.compare (String.lowercase a) (String.lowercase b)
String.compare (String.lowercase_ascii a) (String.lowercase_ascii b)
else
String.compare a b
end

4
src/odoc.ml
View File

@ -39,7 +39,7 @@ let compile_module sctx (m : Module.t) ~odoc ~dir ~includes ~dep_graph ~modules
let to_html sctx (m : Module.t) odoc_file ~doc_dir ~odoc ~dir ~includes
~lib_public_name ~(lib : Library.t) =
let context = SC.context sctx in
let html_dir = doc_dir ++ lib_public_name ++ String.capitalize m.obj_name in
let html_dir = doc_dir ++ lib_public_name ++ String.capitalize_ascii m.obj_name in
let html_file = html_dir ++ "index.html" in
SC.add_rule sctx
(SC.Libs.static_file_deps (dir, lib) ~ext:odoc_ext
@ -79,7 +79,7 @@ let lib_index sctx ~odoc ~dir ~(lib : Library.t) ~lib_public_name ~doc_dir ~modu
The entry point for this library is module {!module:%s}."
header
lib_public_name
(String.capitalize lib.name)
(String.capitalize_ascii lib.name)
else
sprintf
"%s\n\