From 1a55dc909950716afccac9d7d4b12da9484ef074 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Sat, 31 Jul 2004 14:52:55 +0000
Subject: [haddock @ 2004-07-31 14:52:55 by krasimir] fix

---
 src/HaddockHH2.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/HaddockHH2.hs')

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)
-- 
cgit v1.2.3