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:
parent
c28bc3d75a
commit
20d9b509a1
|
@ -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
|
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
|
begin match Lib.DB.find lib_db lib with
|
||||||
| Error _ -> ()
|
| Error _ -> ()
|
||||||
| Ok lib -> Option.iter (Lib.package lib) ~f:setup_html_rules
|
| Ok lib -> setup_lib_html_rules lib ~requires:(Lib.closure [lib])
|
||||||
end;
|
end;
|
||||||
Option.iter
|
Option.iter
|
||||||
(Package.Name.Map.find (SC.packages sctx)
|
(Package.Name.Map.find (SC.packages sctx)
|
||||||
|
|
Loading…
Reference in New Issue