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 15:41:15 +0000
committerNeil Mitchell <http://www.cs.york.ac.uk/~ndm/>2007-01-11 15:41:15 +0000
commit47164db7bfd12449a31418a6f02de436e8fe4787 (patch)
treeced10dfeb6271f5511478a48aa7f0ff1a5b48795 /src/Haddock/Backends/Html.hs
parent76c29f4a6617069e56e0714c361624c896e2939a (diff)
Never do spliting index files into many
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
-rw-r--r--src/Haddock/Backends/Html.hs13
1 files changed, 1 insertions, 12 deletions
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 =