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/HaddockUtil.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/HaddockUtil.hs')

diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs
index 5ce61011..eca9e743 100644
--- a/src/HaddockUtil.hs
+++ b/src/HaddockUtil.hs
@@ -16,6 +16,7 @@ module HaddockUtil (
   basename, dirname, splitFilename3, 
   isPathSeparator, pathSeparator,
   moduleHtmlFile, nameHtmlRef,
+  contentsHtmlFile, indexHtmlFile, subIndexHtmlFile,
   cssFile, iconFile, jsFile, plusFile, minusFile,
 
   -- * Miscellaneous utilities
@@ -33,6 +34,7 @@ import IO	( hPutStr, stderr )
 import System
 import Binary
 import Monad
+import Char	( isAlpha, ord )
 
 #if __GLASGOW_HASKELL__ < 503
 import RegexString
@@ -277,6 +279,15 @@ moduleHtmlFile dir mod0 = dir ++ pathSeparator : mod0 ++ ".html"
 nameHtmlRef :: FilePath -> String -> HsName -> String	
 nameHtmlRef fp mdl str = moduleHtmlFile fp mdl ++ '#':escapeStr (hsAnchorNameStr str)
 
+contentsHtmlFile, indexHtmlFile :: String
+contentsHtmlFile = "index.html"
+indexHtmlFile = "doc-index.html"
+
+subIndexHtmlFile :: Char -> String
+subIndexHtmlFile a = "doc-index-" ++ b ++ ".html"
+   where b | isAlpha a = [a]
+           | otherwise = show (ord a)
+
 -- -----------------------------------------------------------------------------
 -- Files we need to copy from our $libdir
 
-- 
cgit v1.2.3