aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockHtml.hs
diff options
context:
space:
mode:
authorsimonmar <unknown>2004-02-03 11:02:03 +0000
committersimonmar <unknown>2004-02-03 11:02:03 +0000
commitac41b8201b7ec96a6d77e534420944d60aa55af6 (patch)
tree54f673c6238b0a3c5df7c1dbaf053608b961d124 /src/HaddockHtml.hs
parent8dfc491f900907ea236c627745fe90b72a9aa56b (diff)
[haddock @ 2004-02-03 11:02:03 by simonmar]
Fix bug in index generation
Diffstat (limited to 'src/HaddockHtml.hs')
-rw-r--r--src/HaddockHtml.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index f100471a..7b909a02 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -283,7 +283,7 @@ ppHtmlIndex odir doctitle maybe_contents_url ifaces = do
besides [ td << anchor ! [href (subIndexHtmlFile c)] <<
toHtml [c]
| c <- initialChars
- , any ((==c) . head . fst) index ]
+ , any ((==c) . toUpper . head . fst) index ]
do_sub_index this_ix c
= unless (null index_part) $