From d0cdb903b5f28e30bb4bdb8b47001d2e15939d41 Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Thu, 11 Jan 2007 18:51:43 +0000 Subject: Make the index be in case-insensitive alphabetic order --- src/Haddock/Backends/Html.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Haddock/Backends/Html.hs') diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index da57f4ea..cc7077b1 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -443,7 +443,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format index :: [(String, Map GHC.Name [(Module,Bool)])] index = sortBy cmp (Map.toAscList full_index) - where cmp (n1,_) (n2,_) = n1 `compare` n2 + where cmp (n1,_) (n2,_) = map toUpper n1 `compare` map toUpper n2 -- for each name (a plain string), we have a number of original HsNames that -- it can refer to, and for each of those we have a list of modules -- cgit v1.2.3