Use lowercase_ascii
This commit is contained in:
parent
e71ad02f02
commit
9935c838b3
|
@ -22,7 +22,7 @@ module Env_var = struct
|
||||||
type t = string
|
type t = string
|
||||||
let compare a b =
|
let compare a b =
|
||||||
if Sys.win32 then
|
if Sys.win32 then
|
||||||
String.compare (String.lowercase a) (String.lowercase b)
|
String.compare (String.lowercase_ascii a) (String.lowercase_ascii b)
|
||||||
else
|
else
|
||||||
String.compare a b
|
String.compare a b
|
||||||
end
|
end
|
||||||
|
|
|
@ -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
|
let to_html sctx (m : Module.t) odoc_file ~doc_dir ~odoc ~dir ~includes
|
||||||
~lib_public_name ~(lib : Library.t) =
|
~lib_public_name ~(lib : Library.t) =
|
||||||
let context = SC.context sctx in
|
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
|
let html_file = html_dir ++ "index.html" in
|
||||||
SC.add_rule sctx
|
SC.add_rule sctx
|
||||||
(SC.Libs.static_file_deps (dir, lib) ~ext:odoc_ext
|
(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}."
|
The entry point for this library is module {!module:%s}."
|
||||||
header
|
header
|
||||||
lib_public_name
|
lib_public_name
|
||||||
(String.capitalize lib.name)
|
(String.capitalize_ascii lib.name)
|
||||||
else
|
else
|
||||||
sprintf
|
sprintf
|
||||||
"%s\n\
|
"%s\n\
|
||||||
|
|
Loading…
Reference in New Issue