From 47164db7bfd12449a31418a6f02de436e8fe4787 Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Thu, 11 Jan 2007 15:41:15 +0000 Subject: Never do spliting index files into many --- src/Haddock/Backends/Html.hs | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'src') diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 2413863a..36be7909 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -420,9 +420,6 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format index_html ) - when split_indices $ - mapM_ (do_sub_index index) initialChars - writeFile (pathJoin [odir, indexHtmlFile]) (renderHtml html) -- Generate index and contents page for Html Help if requested @@ -433,15 +430,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format Just "devhelp" -> return () Just format -> fail ("The "++format++" format is not implemented") where - split_indices = length index > 50 - - index_html - | split_indices = - tda [theclass "section1"] << - toHtml ("Index") - indexInitialLetterLinks - | otherwise = - td << table ! [cellpadding 0, cellspacing 5] << + index_html = td << table ! [cellpadding 0, cellspacing 5] << aboves (map indexElt index) indexInitialLetterLinks = -- cgit v1.2.3