diff options
Diffstat (limited to 'src/HaddockUtil.hs')
| -rw-r--r-- | src/HaddockUtil.hs | 11 |
1 files changed, 11 insertions, 0 deletions
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 |