diff options
| author | rrnewton <rrnewton@gmail.com> | 2010-10-24 03:19:28 +0000 |
|---|---|---|
| committer | rrnewton <rrnewton@gmail.com> | 2010-10-24 03:19:28 +0000 |
| commit | 54de1813071ef9191299efa8fa71159767f5f090 (patch) | |
| tree | acf014eac571d00c37fed34b49718ef3d1da4063 /src/Haddock/Utils.hs | |
| parent | 00064a3fd99b14e353d155650e3917d6b783bacc (diff) | |
Change to index pages: include an 'All' option even when subdividing A-Z.
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index 9a760bbe..60ee799d 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -204,10 +204,10 @@ mainFrameName = "main" synopsisFrameName = "synopsis" -subIndexHtmlFile :: Char -> String -subIndexHtmlFile a = "doc-index-" ++ b ++ ".html" - where b | isAlpha a = [a] - | otherwise = show (ord a) +subIndexHtmlFile :: String -> String +subIndexHtmlFile ls = "doc-index-" ++ b ++ ".html" + where b | all isAlpha ls = ls + | otherwise = concat (map (show . ord) ls) ------------------------------------------------------------------------------- |