diff options
| author | simonmar <unknown> | 2004-02-03 11:02:03 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-02-03 11:02:03 +0000 |
| commit | ac41b8201b7ec96a6d77e534420944d60aa55af6 (patch) | |
| tree | 54f673c6238b0a3c5df7c1dbaf053608b961d124 | |
| parent | 8dfc491f900907ea236c627745fe90b72a9aa56b (diff) | |
[haddock @ 2004-02-03 11:02:03 by simonmar]
Fix bug in index generation
| -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) $ |