From 9935c838b307c24c990ae04887073e0f3c139929 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fran=C3=A7ois=20Bobot?= Date: Thu, 6 Jul 2017 14:32:46 +0200 Subject: [PATCH] Use lowercase_ascii --- src/context.ml | 2 +- src/odoc.ml | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/context.ml b/src/context.ml index 3c962ef5..f3d2c60e 100644 --- a/src/context.ml +++ b/src/context.ml @@ -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 diff --git a/src/odoc.ml b/src/odoc.ml index 42809732..912fdfc4 100644 --- a/src/odoc.ml +++ b/src/odoc.ml @@ -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\