diff options
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 2 |
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) $ |