diff options
| -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) |