diff options
| author | krasimir <unknown> | 2004-08-02 16:25:53 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-08-02 16:25:53 +0000 |
| commit | f0c653889170549f34f3a477e8201bf167c8de78 (patch) | |
| tree | 6f883fd4580637aaefa465fcb22e4f210d4e5304 /src/HaddockHH2.hs | |
| parent | 94ad7ac846655fc7ed649a97c0222ea0dca02e34 (diff) | |
[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
Diffstat (limited to 'src/HaddockHH2.hs')
| -rw-r--r-- | src/HaddockHH2.hs | 8 |
1 files changed, 5 insertions, 3 deletions
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 |