From ac41b8201b7ec96a6d77e534420944d60aa55af6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 3 Feb 2004 11:02:03 +0000
Subject: [haddock @ 2004-02-03 11:02:03 by simonmar] Fix bug in index
 generation

---
 src/HaddockHtml.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/HaddockHtml.hs')

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) $
-- 
cgit v1.2.3