From 8740554ebf988f0dcdf440d2bbe6089810a9eabf Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Thu, 7 Jun 2018 12:47:50 +0700 Subject: [PATCH] Rename to_html to setup_html Signed-off-by: Rudi Grinberg --- src/odoc.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/odoc.ml b/src/odoc.ml index 89c9b236..1702f3bc 100644 --- a/src/odoc.ml +++ b/src/odoc.ml @@ -161,7 +161,7 @@ module Gen (S : sig val sctx : SC.t end) = struct Arg_spec.S (List.concat_map (Path.Set.to_list paths) ~f:(fun dir -> [Arg_spec.A "-I"; Path dir]))) - let to_html (odoc_file : odoc) ~deps ~requires = + let setup_html (odoc_file : odoc) ~deps ~requires = let to_remove, jbuilder_keep = match odoc_file.typ with | Mld -> odoc_file.html_file, [] @@ -329,7 +329,7 @@ module Gen (S : sig val sctx : SC.t end) = struct let html_files = let closure = Lib.closure libs in let deps = Dep.deps closure in - List.map odocs ~f:(to_html ~deps ~requires:closure) in + List.map odocs ~f:(setup_html ~deps ~requires:closure) in List.iter ( Dep.html_alias (Pkg pkg) :: List.map ~f:(fun lib -> Dep.html_alias (Lib lib)) libs