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/HaddockHtml.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/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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") |