From bf9d816e9df61c11670e2e09b3ddb41475a3bc1a Mon Sep 17 00:00:00 2001
From: Neil Mitchell <http://www.cs.york.ac.uk/~ndm/>
Date: Thu, 11 Jan 2007 18:17:46 +0000
Subject: Delete dead code, now there is only one index page
---
src/Haddock/Backends/Html.hs | 26 --------------------------
1 file changed, 26 deletions(-)
(limited to 'src/Haddock/Backends')
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index d46e0df4..034c4db2 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -440,32 +440,6 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format
index_html = td << table ! [identifier "indexlist", cellpadding 0, cellspacing 5] <<
aboves (map indexElt index)
-
- indexInitialLetterLinks =
- td << table ! [cellpadding 0, cellspacing 5] <<
- besides [ td << anchor ! [href (subIndexHtmlFile c)] <<
- toHtml [c]
- | c <- initialChars
- , any ((==c) . toUpper . head . fst) index ]
-
- do_sub_index this_ix c
- = unless (null index_part) $
- writeFile (pathJoin [odir, subIndexHtmlFile c]) (renderHtml html)
- where
- html = header (documentCharacterEncoding +++
- thetitle (toHtml (doctitle ++ " (Index)")) +++
- styleSheet) +++
- body << vanillaTable << (
- simpleHeader doctitle maybe_contents_url Nothing
- maybe_source_url maybe_wiki_url </>
- indexInitialLetterLinks </>
- tda [theclass "section1"] <<
- toHtml ("Index (" ++ c:")") </>
- td << table ! [cellpadding 0, cellspacing 5] <<
- aboves (map indexElt index_part)
- )
-
- index_part = [(n,stuff) | (n,stuff) <- this_ix, toUpper (head n) == c]
index :: [(String, Map GHC.Name [(Module,Bool)])]
index = sortBy cmp (Map.toAscList full_index)
--
cgit v1.2.3