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/HaddockHH.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/HaddockHH.hs')
| -rw-r--r-- | src/HaddockHH.hs | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/HaddockHH.hs b/src/HaddockHH.hs index 6a41f738..d4dc07e8 100644 --- a/src/HaddockHH.hs +++ b/src/HaddockHH.hs @@ -17,8 +17,8 @@ import HaddockUtil import HaddockTypes -ppHHContents :: FilePath -> Maybe String -> [ModuleTree] -> IO () -ppHHContents odir maybe_package tree = do +ppHHContents :: FilePath -> String -> Maybe String -> [ModuleTree] -> IO () +ppHHContents odir doctitle maybe_package tree = do let contentsHHFile = package++".hhc" html = @@ -40,9 +40,17 @@ ppHHContents odir maybe_package tree = do text "<PARAM name=\"FrameName\" value=\"main\">" $$ text "</OBJECT>" $$ text "<UL>" $+$ - nest 4 (fn [] ts) $+$ + nest 4 (text "<LI>" <> nest 4 + (text "<OBJECT type=\"text/sitemap\">" $$ + nest 4 (text "<PARAM name=\"Name\" value=\""<>text doctitle<>text "\">" $$ + text "<PARAM name=\"Local\" value=\"index.html\">") $$ + text "</OBJECT>") $+$ + text "</LI>" $$ + text "<UL>" $+$ + nest 4 (fn [] ts) $+$ + text "</UL>") $+$ text "</UL>" - + fn :: [String] -> [ModuleTree] -> Doc fn ss [x] = ppNode ss x fn ss (x:xs) = ppNode ss x $$ fn ss xs |