diff options
| author | krasimir <unknown> | 2004-07-31 14:52:55 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-07-31 14:52:55 +0000 |
| commit | 1a55dc909950716afccac9d7d4b12da9484ef074 (patch) | |
| tree | 88a89f7972f93ad07d5797f4f2c270a2283342cd | |
| parent | 790409633e5783aaffda8d2d782e3507431dbb7a (diff) | |
[haddock @ 2004-07-31 14:52:55 by krasimir]
fix
| -rw-r--r-- | src/HaddockHH2.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/HaddockHH2.hs b/src/HaddockHH2.hs index df739384..cea0f2e0 100644 --- a/src/HaddockHH2.hs +++ b/src/HaddockHH2.hs @@ -77,7 +77,7 @@ ppHH2Index odir maybe_package ifaces = do text "<!DOCTYPE HelpIndex SYSTEM \"ms-help://hx/resources/HelpIndex.DTD\">" $$
text "<HelpIndex DTDVersion=\"1.0\" Name=\"NamedURLIndex\">" $$ text "<Keyword Term=\"HomePage\">" $$
- nest 4 (text "<Jump Url=\"index.html\"/>") $$
+ nest 4 (text "<Jump Url=\""<>text contentsHtmlFile<>text "\"/>") $$
text "</Keyword>" $$
text "</HelpIndex>" writeFile (odir ++ pathSeparator:indexKHH2File) (render docK) |