diff options
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"] << |