diff options
| author | krasimir <unknown> | 2004-07-28 22:12:10 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-07-28 22:12:10 +0000 |
| commit | c4fb4881fa80488d9939b52bf333c2ac89fd4c52 (patch) | |
| tree | 3475a372759b7fbe0a546b165a6faa61ae912077 /src/HaddockHH2.hs | |
| parent | a5f1be23a47af7e12aff58a335d33fe184fa4cd0 (diff) | |
[haddock @ 2004-07-28 22:12:09 by krasimir]
bugfix. Move contentsHtmlFile, indexHtmlFile and subIndexHtmlFile functions to
HaddockUtil.hs module to make them accessible from HaddockHH2.hs
Diffstat (limited to 'src/HaddockHH2.hs')
| -rw-r--r-- | src/HaddockHH2.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/HaddockHH2.hs b/src/HaddockHH2.hs index 1e4de522..2fb673b9 100644 --- a/src/HaddockHH2.hs +++ b/src/HaddockHH2.hs @@ -111,8 +111,8 @@ ppHH2Files odir package ifaces = do text "<!DOCTYPE HelpFileList SYSTEM \"ms-help://hx/resources/HelpFileList.DTD\">" $$
text "<HelpFileList DTDVersion=\"1.0\">" $$
nest 4 (ppMods ifaces $$
- text "<File Url=\"index.html\"/>" $$
- text "<File Url=\"doc-index.html\"/>" $$
+ text "<File Url=\""<>text contentsHtmlFile<>text "\"/>" $$
+ text "<File Url=\""<>text indexHtmlFile<>text "\"/>" $$
ppIndexFiles chars $$
text "<File Url=\""<>text cssFile <>text "\"/>") $$
text "<File Url=\""<>text iconFile <>text "\"/>" $$
@@ -129,7 +129,7 @@ ppHH2Files odir package ifaces = do ppIndexFiles [] = empty ppIndexFiles (c:cs) = - text "<File Url=\"doc-index-" <> char c <> text ".html\"/>" $$
+ text "<File Url=\""<>text (subIndexHtmlFile c)<>text "\"/>" $$
ppIndexFiles cs chars :: [Char] |