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
bmeurer · Dec 18, 2009 · 1a69d6b · 1a69d6b
1 parent f2f0f0e
commit 1a69d6b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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