Setup html rules for libraries and not just their parent pacakge

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-06-07 13:45:55 +07:00
parent c28bc3d75a
commit 20d9b509a1
1 changed files with 1 additions and 1 deletions

View File

@ -366,7 +366,7 @@ module Gen (S : sig val sctx : SC.t end) = struct
let lib, lib_db = SC.Scope_key.of_string sctx lib_unique_name_or_pkg in
begin match Lib.DB.find lib_db lib with
| Error _ -> ()
| Ok lib -> Option.iter (Lib.package lib) ~f:setup_html_rules
| Ok lib -> setup_lib_html_rules lib ~requires:(Lib.closure [lib])
end;
Option.iter
(Package.Name.Map.find (SC.packages sctx)