aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Html.hs
diff options
context:
space:
mode:
authorNeil Mitchell <http://www.cs.york.ac.uk/~ndm/>2007-01-11 18:51:43 +0000
committerNeil Mitchell <http://www.cs.york.ac.uk/~ndm/>2007-01-11 18:51:43 +0000
commitd0cdb903b5f28e30bb4bdb8b47001d2e15939d41 (patch)
tree333737dc9bfce319582021a7a92b99d3a33c7e50 /src/Haddock/Backends/Html.hs
parentab036c7617982c513f2d820ae9076c381453f491 (diff)
Make the index be in case-insensitive alphabetic order
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
-rw-r--r--src/Haddock/Backends/Html.hs2
1 files changed, 1 insertions, 1 deletions
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