Remove Odoc.pkg_odoc

This function is only used once
This commit is contained in:
Rudi Grinberg 2018-04-02 19:47:13 +08:00
parent 01fab4c1c3
commit 85d69b8e1a
1 changed files with 1 additions and 3 deletions

View File

@ -391,8 +391,6 @@ module Gen (S : sig val sctx : SC.t end) = struct
|> Path.Set.of_list
)
let pkg_odoc (pkg : Package.t) = Paths.odocs (Pkg pkg.name)
let entry_modules ~(pkg : Package.t) ~entry_modules_by_lib =
libs_of_pkg ~pkg:pkg.name
|> Lib.Set.to_list
@ -504,7 +502,7 @@ module Gen (S : sig val sctx : SC.t end) = struct
SC.packages sctx
|> Package.Name.Map.iter ~f:(fun (pkg : Package.t) ->
SC.on_load_dir sctx
~dir:(pkg_odoc pkg)
~dir:(Paths.odocs (Pkg pkg.name))
~f:(fun () ->
setup_package_odoc_rules
~pkg