From f0c653889170549f34f3a477e8201bf167c8de78 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Mon, 2 Aug 2004 16:25:53 +0000
Subject: [haddock @ 2004-08-02 16:25:53 by krasimir] Add root node to the
 table of contents. All modules in tree are not children of the root

---
 src/HaddockHtml.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/HaddockHtml.hs')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 466fd413..1d9f3c5e 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -234,8 +234,8 @@ ppHtmlContents odir doctitle maybe_package maybe_html_help_format maybe_index_ur
   -- Generate contents page for Html Help if requested
   case maybe_html_help_format of
     Nothing        -> return ()
-    Just "mshelp"  -> ppHHContents  odir maybe_package tree
-    Just "mshelp2" -> ppHH2Contents odir maybe_package tree
+    Just "mshelp"  -> ppHHContents  odir doctitle maybe_package tree
+    Just "mshelp2" -> ppHH2Contents odir doctitle maybe_package tree
     Just "devhelp" -> return ()
     Just format    -> fail ("The "++format++" format is not implemented")
 
-- 
cgit v1.2.3