From c4fb4881fa80488d9939b52bf333c2ac89fd4c52 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Wed, 28 Jul 2004 22:12:10 +0000
Subject: [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

---
 src/HaddockHH2.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/HaddockHH2.hs')

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