From 20d9b509a1f65eab979be5488078902a8bf58ab5 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Thu, 7 Jun 2018 13:45:55 +0700
Subject: [PATCH] Setup html rules for libraries and not just their parent
 pacakge

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/odoc.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/odoc.ml b/src/odoc.ml
index a8fb3631..ee218b60 100644
--- a/src/odoc.ml
+++ b/src/odoc.ml
@@ -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)