From 1a69d6b1567d245f18e20a37c58f7a90baad232e Mon Sep 17 00:00:00 2001
From: Maxence Guesdon <maxence.guesdon@inria.fr>
Date: Fri, 18 Dec 2009 12:10:56 +0000
Subject: PR#4913: fix output of index file wehn given a custom index text

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9479 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 ocamldoc/odoc_html.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ocamldoc/odoc_html.ml')

diff --git a/ocamldoc/odoc_html.ml b/ocamldoc/odoc_html.ml
index 1d58787df..bcf264716 100644
--- a/ocamldoc/odoc_html.ml
+++ b/ocamldoc/odoc_html.ml
@@ -2341,9 +2341,9 @@ class html =
              bs b "<br/>";
              self#html_of_Module_list b
                (List.map (fun m -> m.m_name) module_list);
-             bs b "</body>\n</html>"
          | Some i -> self#html_of_info ~indent: false b info
         );
+        bs b "</body>\n</html>";
         Buffer.output_buffer chanout b;
         close_out chanout
       with
-- 
cgit v1.2.3-70-g09d2