diff options
| author | krasimir <unknown> | 2004-07-28 22:12:10 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-07-28 22:12:10 +0000 |
| commit | c4fb4881fa80488d9939b52bf333c2ac89fd4c52 (patch) | |
| tree | 3475a372759b7fbe0a546b165a6faa61ae912077 /src/HaddockHtml.hs | |
| parent | a5f1be23a47af7e12aff58a335d33fe184fa4cd0 (diff) | |
[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
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 0f700f24..523f65b5 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -21,7 +21,7 @@ import HsSyn import IO import Maybe ( fromJust, isJust, fromMaybe ) import List ( sortBy ) -import Char ( isUpper, toUpper, isAlpha, ord ) +import Char ( isUpper, toUpper ) import Monad ( when, unless ) #if __GLASGOW_HASKELL__ < 503 @@ -97,16 +97,6 @@ copyHtmlBits odir libdir maybe_css = do writeFile css_destination css_contents mapM_ copyFile [ iconFile, plusFile, minusFile, jsFile ] - -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) - footer :: HtmlTable footer = tda [theclass "botbar"] << |