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/HaddockHH2.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/HaddockHH2.hs')

diff --git a/src/HaddockHH2.hs b/src/HaddockHH2.hs
index ce4d488e..915f211d 100644
--- a/src/HaddockHH2.hs
+++ b/src/HaddockHH2.hs
@@ -17,8 +17,8 @@ import HaddockModuleTree
 import HaddockUtil
 import HaddockTypes
 
-ppHH2Contents :: FilePath -> Maybe String -> [ModuleTree] -> IO ()
-ppHH2Contents odir maybe_package tree = do
+ppHH2Contents :: FilePath -> String -> Maybe String -> [ModuleTree] -> IO ()
+ppHH2Contents odir doctitle maybe_package tree = do
   let 	
 	contentsHH2File = package++".HxT"
 
@@ -26,7 +26,9 @@ ppHH2Contents odir maybe_package tree = do
 		text "<?xml version=\"1.0\"?>" $$
 		text "<!DOCTYPE HelpTOC SYSTEM \"ms-help://hx/resources/HelpTOC.DTD\">" $$
 		text "<HelpTOC DTDVersion=\"1.0\">" $$
-		nest 4 (ppModuleTree [] tree) $$
+		nest 4 (text "<HelpTOCNode Title=\""<>text doctitle<>text"\" Url=\"index.html\">" $$
+		        nest 4 (ppModuleTree [] tree) $+$
+		        text "</HelpTOCNode>") $$
 		text "</HelpTOC>"
   writeFile (odir ++ pathSeparator:contentsHH2File) (render doc)
   where
-- 
cgit v1.2.3